bitte um Eure Hilfe.
Folgendes Makro soll alle Bilder in allen Tabellen löschen.
Leider werden die Bilder nur in der aktuellen Tabelle gelöscht. Könnte jemand das Makro so ändern, dass die Bilder in allen Tabellenblättern gelöscht werden
Sub pictures_delete2()
Dim Sh As Shape
Application.ScreenUpdating = False
Dim LoI As Long
Dim LoZeile As Long
For LoI = 5 To Worksheets.Count
With Worksheets(LoI)
For Each Sh In ActiveSheet.Shapes
If InStr(1, Sh.Name, "Pict") > 0 Then
Sh.Select
Sh.Delete
End If
Next Sh
End With
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank im voraus,LG
Peter