MsgBox PopUP Twice with checkbox

[Ciccio86]

Hi, when i tick a checkbox i got the msgbox popup twice
Checkbox CODE

Private Sub CheckBox3_Click() 
    If Prev(chk) = "NO1" Then
        chk.Object = False
        Exit Sub
    End If

End Sub

Function CODE

Function Prev(chk As OLEObject)
Dim PrevValue As Variant
 
    If TypeName(chk.Object) = "CheckBox" Then
    PrevValue = chk.TopLeftCell.Offset(-1, 0).Value
    If PrevValue = "0" Then
        chk.TopLeftCell.Offset(0, 0).Value = "0"
        chk.Object = False
        MsgBox "Not correct"
        Prev = "NO1"
    Else
        chk.TopLeftCell.Offset(0, 0).Value = "1"
        End If
    End If

End Function

Tried to fix like this as recommended in my last post but it didn't work

Dim runChkBox As Boolean

Private Sub CheckBox3_Click()
    Dim chk As OLEObject
    Set chk = Me.OLEObjects(CheckBox3.Name)
 
    If runChkBox Then
        runChkBox = False
        Exit Sub
    End If
 
    If Prev(chk) = "NO1" Then
        runChkBox = True
        chk.Object = False
        Exit Sub
    End If
 

End Sub

 

[rlv01]

Hi, when i tick a checkbox i got the msgbox popup twice

If the msgbox is appearing twice it means that Function Prev is somehow being called twice. Set a breakpoint inside Function Prev so you can interrupt execution and single step to find out why.

 

[Alex Blakenburg]

Try:
1) Use the 2nd click sub that uses runChkBox
2) in the Function remove the line

        chk.Object = False