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
Leider macht es nur das erste Blatt.Alle Blätter haben einen anderen Namen.
Was mache ich Falsch?
Danke und Gruss
Roger