Hide/Unhide Cells based on a Date Range

[burdettejj]

Hi all:

I am very new to VBA Code and need some help. I need to have a code that will hide/unhide cells based on a date range.

Cell A1 contains the formula for todays date, based on that answer, I want to hide/unhide columns based on a weekly date range.

Ex.:

Today is 03/18/2014 I want excel to say
If A1(Today) is greater than 03/14/2014 and less than or equal to 03/21/2014 then unhide column E and hide the rest.

Then let's say Today is 03/22/2014. I want excel to say
If A1(Today) is greater than 03/21/2014 and less than or equal to 03/28/2014 then unhide column F and hide the rest.

columns in questions are D-AC

HELP!!!!!!!!!!

[venkatpvc]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myDate As Date
myDate = Target
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        If myDate > "3/14/2014" And myDate <= "03/21/2014" Then
            Columns("D:AC").EntireColumn.Hidden = True
            Columns("E:E").EntireColumn.Hidden = False
        End If
        If myDate > "3/21/2014" And myDate <= "03/28/2014" Then
            Columns("D:AC").EntireColumn.Hidden = True
            Columns("F:F").EntireColumn.Hidden = False
        End If
    End If
            
End Sub

[burdettejj]

This is not working for me.

I am using Excel 2003, would that be why?

When I try to preview the macro it doesn't even recognized the macro as existing

[venkatpvc]

can u attach the example file?

thank you
venkat