Sort data sheet by right_click of mouse

[Rasm]

This modification will result in the right_click options for sorting is only shown when the HeaderRow has focus

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Target.Row = HeaderRow Then
            AddOnRightClick
        Else
            DeleteOnRightClick
    End If
End Sub