Hallo Zusammen,
ich möchten gern per Code alle Buttons einer Mappe löschen.
In der Mappe sind alle Blätter ausgeblendet und wenn ich dann folgende Code aufrufe, so erscheint der Fehler Anwendung- oder objektorientierter Fehler.
Blende ich alle Blätter ein und aktiviere jedes Blatt per Select funktioniert es.
Dim wks As Worksheet
For i = 1 To VJ_TB.Sheets.Count
Set wks = VJ_TB.Sheets(i)
For Each sh In wks.Shapes
sh.Delete
Next sh
Next i
Was kann ich tun, um alle Buttons zu löschen ohne ein Blatt anzuzeigen?
Danke Euch schon mal.
Steffen Schmerler