another shortcuts exists to select/ uselect all the boxes ...
Sub Unfilter_column()
'
' Unfilter_column
'
' Keyboard Shortcut: Ctrl+j
'
End Sub
If Selection.CurrentRegion.Count = 1 Then Exit Sub
ActiveSheet.Range(Selection.CurrentRegion.Address).AutoFilter Field:=Selection.Column - Selection.CurrentRegion.Cells(1, 1).Column + 1