Macro über alle Blätter läuft nicht
25.02.2015 15:08:16
Roger
Ich habe folgendes Macro das mir die Spaltenbreite in allen Blättern anpassen soll.
Sub Spalten()
Dim Blatt As Object
On Error Resume Next
For Each Blatt In Worksheets
Columns("A:I").Select
Columns("A:I").EntireColumn.AutoFit
Next Blatt
End Sub
Alle Blätter haben einen anderen Namen.
Was mache ich Falsch?
Danke und Gruss
Roger
Anzeige