D
David W
I am trying to stop someone from continuing if they select 2 different
checkboxes until one of them are unchecked, I have been playing with this
and haven't got it to work,what are your thoughts other than me finding a
new job
Private Sub CheckBox2_Change()
Dim wksh As Worksheet
Set wksh = Worksheets("jan")
If CheckBox2.Value = True Then
If CheckBox6.Value = True Then
Stop
MsgBox "Please Uncheck Either Plant or Construction Before Proceeding"
Else
For i = 1 To 12
sname = Choose(i, "jan", "feb", "march", "april", "may", _
"june", "july", "aug", "sept", "oct", "nov", "dec")
Set wksh = Worksheets(sname)
wksh.Unprotect ("?")
wksh.Range("v10") = Me.CheckBox2.Value
wksh.Protect ("?")
Next
End If
End Sub
checkboxes until one of them are unchecked, I have been playing with this
and haven't got it to work,what are your thoughts other than me finding a
new job
Private Sub CheckBox2_Change()
Dim wksh As Worksheet
Set wksh = Worksheets("jan")
If CheckBox2.Value = True Then
If CheckBox6.Value = True Then
Stop
MsgBox "Please Uncheck Either Plant or Construction Before Proceeding"
Else
For i = 1 To 12
sname = Choose(i, "jan", "feb", "march", "april", "may", _
"june", "july", "aug", "sept", "oct", "nov", "dec")
Set wksh = Worksheets(sname)
wksh.Unprotect ("?")
wksh.Range("v10") = Me.CheckBox2.Value
wksh.Protect ("?")
Next
End If
End Sub