Grouping Select Columns using VBA

[Grimm127]

A	B	C	D	E	F	G	H
JAN		FEB		MAR		APR
ACT		FCST		BUDGET		BUDGET
X		X

<tbody>
</tbody>

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