Good afternoon,
I am some difficulty trying to figure out why this macro doesn't work. I’m trying to only show the columns that have a “q” on the top of the
spreadsheet. But for some reason it hides additional columns (BS-BZ).

Can anyone help me out?

I tried to post the sheet but it says its to large (208K).

Macro Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 4/29/2008 by R.Miller
'

'
    Cells.Select
    Range("W1").Activate
    Selection.EntireColumn.Hidden = False
    Columns("A:V").Select
    Range("V1").Activate
    Selection.EntireColumn.Hidden = True
    Columns("Z:AI").Select
    Selection.EntireColumn.Hidden = True
    Columns("AL:AL").Select
    Selection.EntireColumn.Hidden = True
    Columns("AO:AO").Select
    Selection.EntireColumn.Hidden = True
    Columns("AR:AU").Select
    Selection.EntireColumn.Hidden = True
    Columns("AW:BL").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.SmallScroll ToRight:=14
    Columns("CA:CD").Select
    Selection.EntireColumn.Hidden = True
    Columns("CJ:CK").Select
    Selection.EntireColumn.Hidden = True
    Columns("CT:CT").Select
    Selection.EntireColumn.Hidden = True
    Columns("CW:CW").Select
    Selection.EntireColumn.Hidden = True
    ActiveWindow.SmallScroll ToRight:=11
    Columns("CY:CZ").Select
    Selection.EntireColumn.Hidden = True
    Columns("DB:DC").Select
    Selection.EntireColumn.Hidden = True
    Range("A8:DD31").Select
    Range("DD8").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$8:$DD$31"
    ActiveWindow.SelectedSheets.PrintPreview
    Range("AP10").Select
    ActiveWindow.FreezePanes = False
    Range("AP10").Select
    ActiveWindow.FreezePanes = True
End Sub
If you would like a copy of the file e-mail me and I will send it to you via e-mail.

Thanks in advance!
Larry