Msgbox to pop-up based on Checkbox's value

[karti1986]

Hi All

I did check this thread related to my question here.. (https://www.mrexcel.com/forum/excel...e-vba-look-checkbox-if-its-checked-not-3.html)

I have tried the below option I have tried and also tried few other things mentioned in the above thread, nothing seem to work for me.

My check box is through Developer -> Controls -> Form Controls -> Check Box

If ActiveSheet.CheckBoxes("TechTowerChk").Value = xlOn Then
MsgBox "Work with Person X"
End If

Is there anything im doing wrong here. Thanks in Advance!

Regards
KG

 

[dmt32]

Is the value in F6 changed by Formula?
If so, Change Event will not trigger.

Dave

 

[karti1986]

No Dave, thats a drop down.

 

[karti1986]

Can anyone please help? I can provide more info if needed

 

[dmt32]

No Dave, thats a drop down.

I assume you mean data validation?

If so I suspect that this part of your change event code

If ActiveSheet.CheckBoxes("CustomerTechTowerChk").Value = xlOn Then
        MsgBox "Work with Person X"
    End If

needs to be assigned to the checkbox click event

Sub CustomerTechTowerChk_Click()
    If ActiveSheet.CheckBoxes("CustomerTechTowerChk").Value = xlOn Then
        MsgBox "Work with Person X"
    End If
End Sub

Dave

 

[karti1986]

Thanks Dave and Everyone,

I got this working by linking the checkboxes to another cell in another Sheet. Assigned the "pro" Macro to the checkbox
--------------------------------------------------------------------------------------------------------------------------------------------
Sub pro()
If ActiveWorkbook.Sheets("Support_Sheet").Range("B27").Value = "True" Then
Call DisplayName
End If


End Sub


---------------------------------------------------------------------------------------------------------------------------------------------
Sub DisplayName()
Application.EnableEvents = True


MsgBox "Work with Regional Leaders for effort and cost customization"
End Sub

--------------------------------------------------------------------------------------

Regards
KG