ActiveSheet.Pictures.Insert( _ "https://barcode.tec-it.com/barcode.ashx?data=80000000" & Chr(10) & "" & Chr(10) & "" & Chr(10) & "&code=&translate-esc=true -->" _ ).Select
Nicht in einer Zelle, aber als Bild....
Gruss ede