Sub ColumnWidths ()
Schemerige targ als Waaier, cel als Waaier
Op Fout hervat daarna
Plaats targ = Application.InputBox („te selecteren gelieve de waaier u kolommenbreedten voor“ wilt melden, Type: =8)
Op Fout GoTo 0
Als targ niets toen is ga Sub weg
Application.ScreenUpdating = Vals
Reeks targ = targ. Rijen (1)
Met Worksheets.Add (na: =Worksheets (Worksheets.Count))
Voor Elke cel in targ. Cellen
. Cellen (1, cel. Kolom) = cel.EntireColumn.ColumnWidth
Daarna
Eind met
Application.ScreenUpdating = Waar
Sub van het eind
|