hiding columns based on date

Hi,
on row 4 i have a list of column headers starting at F4 containing the weekending dates (friday). I wish to have a macro which would hide every column apart from the current week and the previous two weeks.
I've looked online and found little to help me with this.