vba to Hide Columns based on User Input

[The_Rock]

Hi Folks
Can you help me with the following.

In Column B, I have a list of countries.
Cols C2:BB2, I have week number 1 to 52 (for 2013)
Col BC is the Total for 2013.

Cols BD2:DC2 are week numbers for 2014, again, numbered 1 to 52.
DD is the total for 2014

What I would like is to have a macro that when it is run, it asked the user which weeks they would like to view.
For example, if the user enters 3, it would then hide columns F:BB (for 2013) and Columns BG:DC (for 2014) - this would leave weeks 1 to 3 visible

If the user entered 10, it would hide columns M:BB (for 2013) and Columns BN:DC (for 2014) - this would leave weeks 1 to 10 visible.

Cheers!

 

[mumps]

Try:

Sub HideCol()
    Application.ScreenUpdating = False
    Cells.EntireColumn.Hidden = False
    Dim weekNum As String
    weekNum = InputBox("Please enter the number of weeks to view.")
    Range(Cells(1, weekNum + 3), Cells(1, "BB")).EntireColumn.Hidden = True
    Range(Cells(1, 56 + weekNum), Cells(1, "DC")).EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub

 

[The_Rock]

Perfect - Thank You

 

[mumps]

My pleasure.