Loop macro for all workbooks

[VbaHell]

Hello all

I hope you can help on this please

I want to use this line of code

Cells.EntireColumn.AutoFit

but I would like to run this for all the worksheets in my workbook

I could select each workbook to do this but is there an easy way for the code to loop through all the workbooks please

 

[Joe4]

Like this:

    Dim ws As Worksheet
    For Each ws In Worksheets
        ws.Activate
        Cells.EntireColumn.AutoFit
    Next ws

 

[VbaHell]

Thanks Joe

One question please if I may

I want run this on all worksheets except "Dashboard"
How could I stop the code from running on "DashBoard" please

 

[Joe4]

Just add an IF block, i.e.

    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name <> "Dashboard" Then
            ws.Activate
            Cells.EntireColumn.AutoFit
        End If
    Next ws

 

[My Aswer Is This]

Try this:

Sub Auto_Fit()
Dim i As Long
    
    For i = 1 To Sheets.Count
    If Sheets(i).Name <> "Dashboard" Then
        Sheets(i).Cells.Columns.AutoFit
    End If
    Next
End Sub