Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 2 And Target.Rows.Count = 1 And Target.Areas.Count = 1 Then
Dim r As Range
Set r = Intersect(Target.EntireColumn, Rows(2).CurrentRegion, Rows("2:" & Rows.Count))
If Not r Is Nothing Then
Cancel = True
Me.AutoFilterMode = False
r.AutoFilter
End If
End If
End Sub