Excel Picture Inserting Macro Help - Urgent

Dear Rizvisa,

please consider this little urgent and be kind to help me please

I m trying to insert picture in excel column using macro which takes the file name refrence from the B2 cell and insert picture in A2 cell.
for example: if B2 cell is N235 then the picture which will be inserted in A2 would be N235.jpg from the given path in Macro. This is working fine EXCEPT when there is no picture in the folder with the the same name as in folder.
I get a runtime error 1004 and Macro stops and can not fill picture after that cell.
I m using following Macro.
----------------------------------------------------------------------------------------------------------------
Sub Picture()
Dim picname As String

Dim pasteAt As Integer
Dim lThisRow As Long

lThisRow = 2

Do While (Cells(lThisRow, 2) <> "")


pasteAt = lThisRow
Cells(pasteAt, 1).Select 'This is where picture will be inserted


picname = Cells(lThisRow, 2) 'This is the picture name

ActiveSheet.Pictures.Insert("C:\Users\Administrator\Desktop\LC\" & picname & ".jpg").Select 'Path to where pictures are stored
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
' This resizes the picture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Selection
'.Left = Range("A6").Left
'.Top = Range("A6").Top
.Left = Cells(pasteAt, 1).Left
.Top = Cells(pasteAt, 1).Top

.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = 100#
.ShapeRange.Width = 130#
.ShapeRange.Rotation = 0#
End With

lThisRow = lThisRow + 1

Loop

Range("A10").Select
Application.ScreenUpdating = True

Exit Sub

ErrNoPhoto:
MsgBox "Unable to Find Photo" 'Shows message box if picture not found
Exit Sub
Range("B20").Select

End Sub
----------------------------------------------------------------------------------------------------------------

Could you please help me in solving this problem. I want it like this, if there is no picture with the same name then "no picture found" should be displayed in the cell. or any dummy picture in all those cell where there is no picture in the folder with the same name as in the cell.

for example: if in B5 value is Z028 and if the picture Z028.jpg is not there in my LC folder (as given above in macro) then it should show "no picture found" and continue adding all other pictures till end.

I would be grateful to you.

Thanks in advance