Option Explicit
Private Sub workbook_[B]activate[/B]()
Application.OnKey "^+{S}", "AFilter"
End sub
Private Sub Workbook_Deactivate()
Application.Onkey "^+{S}
End Sub
Sub AFilter ()
Selection.AutoFilter
End Sub
Sub Workbook_Activate()
Sub Worksheet_Change()
Sub LastColumnAFilter()
LC = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
Range("A1:A" & LC).AutoFilter
End Sub