Bilder in Excel einfügen - Makro geht nicht mehr

Sub BilderEinfuegen()
'by J.Ehrensberger
Dim fSearch As FileSearch
Dim strPath As String
Dim iCnt As Integer
Dim pic As Picture
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
' "alte" Bilder löschen
ActiveSheet.Pictures.Delete
'Pfad anpassen
strPath = "C:\Dokumente und Einstellungen\Admin\Eigene Dateien\Eigene Bilder\" '  0 Then
'gefundene Dateien durchlaufen
For iCnt = 1 To .FoundFiles.Count
'Bild einfügen
Set pic = ActiveSheet.Pictures.Insert(.FoundFiles(iCnt))
'Größe anpassen und ausrichten
With pic.ShapeRange
.LockAspectRatio = msoTrue
.Left = Cells(iCnt, 1).Left
.Height = Cells(iCnt, 1).Height
.Top = Cells(iCnt, 1).Top
End With
Cells(iCnt, 2) = .FoundFiles(iCnt)
Set pic = Nothing
Next
End If
End With
Set fSearch = Nothing
ERRORHANDLER:
Application.ScreenUpdating = True
End Sub