Cell Edit = Checkbox Unclick

[bnichols]

Hi, im trying to get this code to work so that when any cell in a range is edited, the checkbox with that particular name will uncheck. I've been unable to get it to work so far and was wondering if anyone saw anything I should adjust.

Private Sub Worksheet_Change_Ctuit(ByVal Target As Range)
Application.EnableEvents = False

Dim ws As Worksheet: Set ws = ThisWorkbook.ActiveSheet
'--> Modify rng to suit
Dim rng As Range: Set rng = ws.Range("A1:A2")
'--> Modify the string to your Check Box number or exact name
Dim cbox As String: cbox1 = "Ctuit"

If Not Application.Intersect(rng, Range(Target.Address)) _
           Is Nothing Then
    ws.CheckBoxes(cbox1).Value = -4146
End If
Application.EnableEvents = True
End Sub

 

[davesexcel]

Would you not enable events to false before you make a change?
Would the check box value either be True or False, or 1 or 0

 

[bnichols]

Would you not enable events to false before you make a change?
Would the check box value either be True or False, or 1 or 0

Im still learning so im not sure on the events, I know that I was having trouble getting the worksheet change to run until I did it like that. For the True, and false, I operated under the same assumption and for several days couldn't figure out why my subs weren't working until I stumbled upon a thread that mentioned 1 true and -4146 false and everything worked like a charm after that. Not sure if its mac specific or if I messed something up somewhere.