Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [a1:c1]) Is Nothing And Target.Count > 1 Then Cancel = 1
If Not Intersect(Target, [a1:c1]) Is Nothing And Target.Count = 1 Then Cancel = 1
End Sub