Hide Columns Macro not working - Help?

Hi folks,

I've written a macro to hide certain columns depending on which month is selected from a drop-down menu

e.g.

If Jun-13 is selected, I would like the following columns to be visible:

D, E, F, G, I, K, M, O, Q, R, Y, Z, AA, AB

so that effectively we show all the preceding months actuals (ACT), Jun-13 actual & budget, always show Columns Y, Z, AA, AB regardless of which ever month is selected, e.g.

If Aug-13 is selected, I would like the following columns to be visible:

D, E, F, G, I, K, M, O, Q, S, U, V, Y, Z, AA, AB

I need a resolve pretty urgently so any help really appreciated

Thanks, Maddy :-)Hide_Col_Example.xlsm

Hi, overbomb,

please look at C8 for a check (not C6 which is empty).

    If ActiveSheet.Range("C8").Value = DateValue("01/03/2013") Then

Ciao,
Holger

Hi, overbomb,

in your code you may combine some columns to sort of shorten the code:

Sub HideCol_2()
    Application.ScreenUpdating = False
    With ActiveSheet
      .Range("D:Z").EntireColumn.Hidden = True
      With .Range("C8")
        If .Value = DateValue("01/03/2013") Then
          ActiveSheet.Range("D:G,I:I,K:L,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/04/2013") Then
          ActiveSheet.Range("D:G,I:K,M:N,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/05/2013") Then
          ActiveSheet.Range("D:G,I:I,K:K,M:M,O:P,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/06/2013") Then
          ActiveSheet.Range("D:G,I:I,K:K,M:O,Q:Q,R:R,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/07/2013") Then
          ActiveSheet.Range("D:G,I:I,K:K,M:M,O:O,Q:Q,S:T,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/08/2013") Then
          ActiveSheet.Range("D:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:V,Y:Z").EntireColumn.Hidden = False
        ElseIf .Value = DateValue("01/09/2013") Then
          ActiveSheet.Range("D:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:Z").EntireColumn.Hidden = False
        End If
      End With
    End With
    Application.ScreenUpdating = True
End Sub

Ciao,
Holger