Mcro to unhide Cols on all sheets

[howard]

I have code to unhide columns on all sheets

However when running the code , columns are unhidden on certain sheets and not others


Kindly check my code and advise

 Sub Unhide_All_Columns_in_Workbook()
    
    Dim ws As Worksheet
    
    For Each ws In Worksheets
        Columns.EntireColumn.Hidden = False
      
    Next ws
End Sub

 

[Fluff]

That code will only unhide columns on the active sheet as you have not qualified the the columns with the worksheet

 

[howard]

thanks for pointing this out


Have amended it to

 Sub Unhide_All_Columns_in_Workbook()
    
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
            ws.Cells.EntireColumn.Hidden = False
            Next ws
End Sub

 

[Fluff]

And did that work?

 

[My Aswer Is This]

Try this:

Sub Unhide_All_Sheets_Columns()
'Modified  3/26/2021  9:46:21 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
    
    For i = 1 To Sheets.Count
        Sheets(i).Columns.Hidden = False
    Next
Application.ScreenUpdating = True

End Sub

 

[howard]

And did that work?

Thanks, it did work

 

[Fluff]

Glad to help & thanks for the feedback.