This may help you get started

Sub GetBarCodeImage()
Dim BarCodeNumber As Integer

Const Url1
"http://ida.20after4.net/servlet/com.idautomation.linear.IDAutomationServlet?FORMAT =GIF&BARCODE="
Const Url2
"&BAR_HEIGHT=.5&CODE_TYPE=CODE128&X=0.03&CHECK_CHA R=Y&CHECK_CHARINTEXT=Y&CODE128_SET=0&ST=N"

BarCodeNumber = 1234
ActiveSheet.Pictures.Insert Url1 & BarCodeNumber & Url2

End Su

--
Ivan F Moal

-----------------------------------------------------------------------
Ivan F Moala's Profile: http://www.excelforum.com/member.php...nfo&userid=195
View this thread: http://www.excelforum.com/showthread.php?threadid=27782