Help...Trying to add jpg into exel cell

[working4it]

Okay...I am trying add a script to load the jpg image on a cell next to it. I am getting a 1004 error
List of urls is in column A1:A3
Sub b()
Dim cell, shp As Shape, target As Range
myurl = "http://abc.com/efg.jog
Photos/Profile Pictures/corp_clao_MThumb.jpg"
Set Rng = ActiveSheet.Range("c1:c2500") ' range with names
For Each cell In Rng
filenam = myurl & cell & ".jpg"
ActiveSheet.Pictures.Insert(f1).Select
Set shp = Selection.ShapeRange.Item(1)
With shp
.LockAspectRatio = msoTrue
.Width = 50
.Height = 50
.Cut
End With
Cells(cell.Row, cell.Column + 1).PasteSpecial
Next

End Sub