This should do it.
    Dim i As Long
    Application.ScreenUpdating = False
    With Activesheet 'change to need
        For i = 2 To .UsedRange.Columns.Count
            .Columns(i).Hidden = False
            If .Cells(1, i) < Date Or .Cells(1, i) > Date + 9 Then .Columns(i).Hidden = True
        Next
    End With
    Application.ScreenUpdating = True