Ich habe mir die Mühe gemacht und alle WM Fussballspieler aus dem Internet geholt.
nun möchte ich die mit angezeigte Flagge entfernen.
Die rund 850 Flaggen sind inf 32 Tabellen verteilt.
Bitte um Hilfe.
Gruß
Walter
Sub tt()
Dim wks As Worksheet, shp As Shape
For Each wks In Worksheets
wks.Hyperlinks.Delete
For Each shp In wks.Shapes
shp.Delete
Next
Next
End Sub