Sub Macro2()
Columns("P:P").Select
Selection.EntireColumn.Hidden = True
Columns("O:Q").Select
Selection.EntireColumn.Hidden = False
End Sub
Sub Macro3()
Columns("P:P").EntireColumn.Hidden = True
Columns("P:P").EntireColumn.Hidden = False
End Sub
Columns(16).Hidden = Not Columns(16).Hidden