Hi,i have a sheet with a list of criteria to which I want users to respond with a "1" or a "0" for each one. Is there a better method, or even another method, than using data validation for each cell?
Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Erik Van Geit
Dim Arr As Variant
Dim k As Integer
Arr = Array(0, 1)
Cancel = True
On Error Resume Next
k = Application.Match(Target.Value, Arr, 0)
On Error GoTo 0
Target.Value = Arr(IIf(k - 1 = UBound(Arr), 0, k))
End Sub