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