VBA worksheets Autifit

[ziad alsayed]

deaer all

with the below worksheets, how can i create an array and autofit the columns from A to F in each worksheets

"Apapa", "VI", "Kano", "Abuja", "PHC"

appreciate any help.

 

[VoG]

Hi. Try

Sub Afit()
Dim ws As Worksheet
For Each ws In Worksheets(Array("Apapa", "VI", "Kano", "Abuja", "PHC"))
    ws.Columns("A:F").AutoFit
Next ws
End Sub

 

[Trevor G]

You can simply record a macro to do this.

Sample code here change sheet names

Sub Macro1()
'
' Macro1 Macro
'
'
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Columns("A:F").Select
Columns("A:F").EntireColumn.AutoFit
Range("A1").Select
End Sub

 

[ziad alsayed]

thanks Vog, it is working.

 

[ziad alsayed]

thanks Trevor for the Suggestion.