Check the value of a checkbox

[amarokWPcom]

I have a toll as a Workbook.

All my subroutines are in a reference (read-only) on the server, so my team membershave access with their tools to use the subroutines.

In my tool I want to use If..then decisions declared by checkboxes.

Unfortunately all of this is not working and I don't understand why:

F.e. the Checkbox is on
Worksheet("UI")

the Checkbox is named
CheckBox2

the text in the checkbox is
Test Mode

in the function field is written
=EMBED("Forms.CheckBox.1";"")

Why this is all not working AND what the hell is working to check the value of the box ?

If Worksheets("UI").OLEObjects("CheckBox2").Value = True Then...

If Worksheets("UI").Shapes("Test Mode").ControlFormat.Value = True Then...

If Worksheets("UI").Shapes("Test Mode").OLEFormat.Object.Value = True Then...

If Worksheets("UI").CheckBoxes("Test Mode").Value = True Then...

 

[gallen]

To check the value of a worksheet check box:

If Worksheets("UI").Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then

Ensure the name is correct. The first checkbox will always be Check Box 1 as default

 

[Norie]

What's the name of the checkbox?

Where is the code that's trying to check it located?

 

[amarokWPcom]

What's the name of the checkbox?

Where is the code that's trying to check it located?

F.e. the Checkbox is on
Worksheet("UI")

the Checkbox is named
CheckBox2

the text in the checkbox is
Test Mode

in the function field is written
=EMBED("Forms.CheckBox.1";"")

Why this is all not working AND what the hell is working to check the value of the box ?

If Worksheets("UI").OLEObjects("CheckBox2").Value = True Then...

If Worksheets("UI").Shapes("Test Mode").ControlFormat.Value = True Then...

If Worksheets("UI").Shapes("Test Mode").OLEFormat.Object.Value = True Then...

If Worksheets("UI").CheckBoxes("Test Mode").Value = True Then...

 

[gallen]

the Checkbox is named
CheckBox2

If this was the default name then is the checkbox an Active X checkbox and not a form check box? Form check boxes default to 'Check Box 1' etc.. including the spaces.

 

[Fluff]

You need to use

If Worksheets("UI").CheckBox2.Value = True Then

 

[amarokWPcom]

You need to use

If Worksheets("UI").CheckBox2.Value = True Then

Withnthis I get error 438

 

[Fluff]

That means you don't have an activeX checkbox called "CheckBox2" on that sheet.