If Worksheets("Tabelle1").Pictures.Count > 0 Then myPicture = Worksheets("Tabelle1").Pictures(1).Name Else MsgBox "Kein Bild da" End If