Macro to Unhide all worksheet fromsheet 2 except last 3

[howard]

I have written code to unhide worksheets from sheet 2 , except the last 3 workbooks. I want to unhide Cols A:M


When running the macro, it only unhides the active worksheet

It would be appreciated if someone could kindly assist me

 Sub Unhide_Columns()
    Application.DisplayAlerts = False
    Dim i As Long
For i = 2 To Worksheets.Count - 3
    With Worksheets(i)
      
             With Range("A:M")
   
    .EntireColumn.Hidden = False
     Application.DisplayAlerts = False
      End With
      
   
    End With
Next i
End Sub

 

[NMa91]

Re: acro to Unhide all worksheet fromsheet 2 except last 3

Try This:

Sub Unhide_Columns()
Dim i As LongFor i = 1 To Worksheets.Count - 3
    Worksheets(i).Range("A:M").EntireColumn.Hidden = False
Next i
End Sub

 

[howard]

Re: acro to Unhide all worksheet fromsheet 2 except last 3

Thanks for the help, code works perfectly