ich habe eine Mappe mit ca. 200 Worksheets. Jedes Scheet beinhaltet mehrere Hundert Drop Down Boxen. Wie kann ich alle Boxen von allen Sheets mit einem Schlag löschen?
Gruß
Martin
Sub Loeschen()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub
Sub Loeschen()
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
rngZelle.Validation.Delete
Next rngZelle
End Sub