Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Application.CountIf(Target, 1) + Application.CountIf(Target, 0) = Target.CountLarge Then
Cancel = True
Target.Replace 1, Chr(149)
Target.Replace 0, ""
ElseIf Application.CountIf(Target, Chr(149)) + Application.CountBlank(Target) = Target.CountLarge Then
Cancel = True
Target.Replace Chr(149), 1
Target.Replace "", 0
End If
End Sub