Hide/Unhide Col

[unap2k]

I am having a problem with my macro, when I run it "A:H" and "O:T" Still end up hidden, I want them unhiden.

Sub q2detail()
'
' q2detail Macro
'
'
Columns("A:EQ").Select
Selection.EntireColumn.Hidden = False
Columns("A:H").Select
Selection.EntireColumn.Hidden = False
Columns("I:N").Select
Selection.EntireColumn.Hidden = True
Columns("O:T").Select
Selection.EntireColumn.Hidden = False
Columns("U:AG").Select
Selection.EntireColumn.Hidden = True
Columns("AH:AH").Select
Selection.EntireColumn.Hidden = False
Columns("AI:AU").Select
Selection.EntireColumn.Hidden = True
Columns("AV:BH").Select
Selection.EntireColumn.Hidden = False
Columns("BI:CH").Select
Selection.EntireColumn.Hidden = True
Columns("CI:CI").Select
Selection.EntireColumn.Hidden = False
Columns("CJ:EP").Select
Selection.EntireColumn.Hidden = True
Range("D12:D13").Select
End Sub


-Thanks
Andrew

 

[Smitty]

Welcome to the Board!

Try without selecting:

Cells.EntireColumn.Hidden = False
Columns("A:H").EntireColumn.Hidden = False
Columns("I:N").EntireColumn.Hidden = True
Columns("O:T").EntireColumn.Hidden = False
Columns("U:AG").EntireColumn.Hidden = True
Columns("AH:AH").EntireColumn.Hidden = False
Columns("AI:AU").EntireColumn.Hidden = True
Columns("AV:BH").EntireColumn.Hidden = False
Columns("BI:CH").EntireColumn.Hidden = True
Columns("CI:CI").EntireColumn.Hidden = False
Columns("CJ:EP").EntireColumn.Hidden = True

HTH,

 

[unap2k]

It worked, thanks!