If Checkbox is Checked, then...

[sfran]

Hello, I'm trying to do an IF-Then, based on if a Checkbox is checked. I have looked at several posts for the same function, but it is not working for me (run-time error 438). The code I have is:

If ActiveSheet.Shapes("Checkbox5").Value = xlOn Then
Worksheets("CS2").Range("A40") = "HU On"
End If

Any insight is appreciated.

 

[Fluff]

Is it a Form Controls checkbox or an ActiveX checkbox?

 

[sfran]

Form Controls

 

[Fluff]

In that case use

If ActiveSheet.Shapes("Checkbox5").ControlFormat.Value = xlOn Then
   Worksheets("CS2").Range("A40") = "HU On"
End If

 

[sfran]

Works .... thank you!!

 

[Fluff]

You're welcome & thanks for the feedback.