If you change your selection of a item from "autofilter list",
Worksheet_Calculate event is triggered,
therefore you can write macro you want using this event procedure.

for example,

Private Sub Worksheet_Calculate()
   Dim w As Worksheet, f As Long

   Set w = sheet2

   With w.AutoFilter
       With .Filters
           For f = 1 To .Count
               With .item(f)
                   If .On Then

'// When Jan.15,93 is selected, you want to hide some columns
                       If .Criteria1 Like "*01-15-93" Then

'// Codes Hiding some columns are here
                           Debug.Print "Hide Columns"
                           Exit Sub

                       End If
                   End If
               End With
           Next
       End With
   End With
End Sub