Warum wird dieser Makro nicht in allen Sheets ausg
01.08.2006 14:19:05
Peter
Kann mir jemand sagen, weshalb dieser Makro nur im aktiven Worksheet, nicht aber in allen übrigen Worksheets der aktiven Datei ausgeführt wird?
Danke, Peter
Option Explicit
Sub versteckte_loeschen()
'versteckte Spalten und Zeilen löschen
'in Workbook löschen
Dim x As Integer
Dim r As Range
For x = 1 To Sheets.Count
For Each r In Rows(1).Cells
If r.Width < 1 Then r.EntireColumn.Delete
Next
For Each r In Columns(1).Cells
If r.Height < 1 Then r.EntireRow.Delete
Next
Next x
End Sub