Spalten löschen
14.07.2006 07:45:28
Peter
Ich versuche, in einem Workbook in allen Tabellen die Spalten AA und folgende zu löschen. Irgend etwas stimmt hier nicht, denn die Spalten bleiben erhalten, ohne dass ich eine Fehlermeldung erhalte.
Was ist hier das Problem?
Gruss, Peter
Sub Spalten_weg()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
Range("AA:IV").Delete
Next Ws
End Sub