Hide Unhide Columns not in a range

[knighttrader]

Hi

Using Excel on a Mac

I want to hide/unhide multiple columns that are not in a range using one button. e.g. Columns, A, E, S, T, Y

I want to hide/Unhide 45 columns in total. The following code works, but can anyone show me how to write the code better?

Many thanks

Sub HideUnhideLayColumns()

Columns("A").EntireColumn.Select
If Selection.EntireColumn.Hidden = False Then
Selection.EntireColumn.Hidden = True
Else
Selection.EntireColumn.Hidden = False
End If

Columns("E").EntireColumn.Select
If Selection.EntireColumn.Hidden = False Then
Selection.EntireColumn.Hidden = True
Else
Selection.EntireColumn.Hidden = False
End If

End Sub

 

[Fluff]

How about

Sub knighttrader()
   With Range("A3:LZ3").SpecialCells(xlConstants).EntireColumn
      .Hidden = Not .Hidden
   End With
End Sub

 

[knighttrader]

How about

Sub knighttrader()
   With Range("A3:LZ3").SpecialCells(xlConstants).EntireColumn
      .Hidden = Not .Hidden
   End With
End Sub

Perfect.

Many thanks again Fluff. Very grateful for help and lesson.

 

[Fluff]

You're welcome & thanks for the feedback.