Hallo Rainer,
wenn sonst keine Bilder auf Tabelle2 vorhanden sind (die nicht gelöscht werden sollen) dann:
Sub Bild_löschen() Dim sh As Shape For Each sh In ThisWorkbook.Worksheets("Tabelle2").Shapes sh.Delete Next sh End Sub
Gruß Werner