VBA to hide columns based on input date range

Hi All.

I need some VBA code to hide columns if they are outside of a specified date range.

- the worksheet i need to run this VBA on is named 'Summary'
- Columns A to G need to remain un-hidden at all times
- from H17 to ZZ17 i have every month of the relevant years listed (all there chronologically)
- D3 holds the 'Date From' variable
- D4 holds the 'Date To' variable

Any help would be appreciated.

Thanks.

Hi Bernie.

This unfortunately doesn't seem to work. When i run the macro over the sheet it hides all the columns immediately.

Some more information:
- the format for row 17 is custom "mmm yy" with the first cell being 1/7/2008 and the =EDATE+1 formula carried across from there (if that makes any difference?)
- I need the columns to unhide when the range is changed (unsure if this makes a difference to your code)
- unsure if it will matter if the date range is say 1/7/12 to 30/6/13 given the second date isn't on the first of the month (as is the case with row 17)

Thanks.

Hi Bernie,
I've attached the example worksheet.
Thanks.

Thanks Bernie.
Is there a way to make this code dynamic. So when the dates are changed the macro runs automatically?

Thanks Bernie.

Hi. Is there a way to adjust this so when D3 & D4 are empty, all cells are shown?

Thank you Bernie. Worked like a charm.

Thanks a lot Bernie for the awesome code, also thanks Jace15 for asking this question

If wants only one date instead if range, then what to do

In below case C4 and C5 are two date selection cell, but what if i wants single date i.e. in C4 and leave C5 blank, what modification to be done in below

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dt As Range
If Intersect(Target, Range("C4:C5")) Is Nothing Then Exit Sub
Columns("E:AI").Hidden = False
For Each dt In Range("E8:AI8")
If dt.Value < [C4] Or dt.Value > [C5] Then Columns(dt.Column).Hidden = True
Next dt
End Sub