That seems to work. Thank you Jacob!

"Jacob Skaria" wrote:

and to further reduce the code you can use the below one liner...

Sub View_Onscreen3()
Range("E:E,S:V,X:Z,AB:AB,AI:AI").EntireColumn.Hidd en = _
Not Columns("E:E").Hidden
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

How about using just one macro to do both. If hidden...make visible and if
visible hide

Sub View_Onscreen3()
Columns("E:E").Hidden = Not Columns("E:E").Hidden
Columns("S:V").Hidden = Not Columns("S:V").Hidden
Columns("X:Z").Hidden = Not Columns("X:Z").Hidden
Columns("AB:AB").Hidden = Not Columns("AB:AB").Hidden
Columns("AI:AI").Hidden = Not Columns("AI:AI").Hidden
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Kevin K" wrote:

I've tried modifying the code below to hide/unhide the columns below, but
can't get this to work. It either hide/unhides columns not specified below
or it will only run the first line. I don't really know VBA, but am just
trying to record macros and modify them. Please help if you have any ideas.
Thanks!

Sub View_Onscreen3()
' View_Onscreen Macro
Columns("E:E").Hidden = True
Columns("S:V").Hidden = True
Columns("X:Z").Hidden = True
Columns("AB:AB").Hidden = True
Columns("AI:AI").Hidden = True
Range("Q16").Select
End Sub

Sub View_Print3()
' View_Onscreen Macro
Columns("E:E").Hidden = False
Columns("S:V").Hidden = False
Columns("X:Z").Hidden = False
Columns("AB:AB").Hidden = False
Columns("AI:AI").Hidden = False
Range("Q16").Select
End Sub