Grouping Select Columns using VBA

[Grimm127]

[TABLE="width: 100"]
<tbody>[TR]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[TD]E
[/TD]
[TD]F
[/TD]
[TD]G
[/TD]
[TD]H
[/TD]
[/TR]
[TR]
[TD]JAN
[/TD]
[TD][/TD]
[TD]FEB
[/TD]
[TD][/TD]
[TD]MAR
[/TD]
[TD][/TD]
[TD]APR
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]ACT
[/TD]
[TD][/TD]
[TD]FCST
[/TD]
[TD][/TD]
[TD]BUDGET
[/TD]
[TD][/TD]
[TD]BUDGET
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]X
[/TD]
[TD][/TD]
[TD]X
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

Hi All,
I have question. I have a range of columns above. Each month uses two columns (Jan uses both columns A&B ex)
How do I code the above to show only the columns that have the X and hides the other columns?

Thank you

 

[mumps]

Try:

Sub HideCols()
    Application.ScreenUpdating = False
    Dim LastRow As Long, x As Long, lCol As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    lCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
    For x = 1 To lCol
        If Cells(LastRow, x) <> "X" Then
            Columns(x).Hidden = True
        Else
            Columns(x).Hidden = False
        End If
    Next x
    Application.ScreenUpdating = True
End Sub