Go to adjacent cell

[New2013]

Hi all
I'm really new at this VBA programming and have searched the forums and can't find the answer to my question. I appreciate any help you all can give.

What I'm trying to do is when a checkbox (any checkbox in the workbook) is clicked then I want the cell two to the left of it to change colors to green.

Can anyone tell me how to do this? I don't really care if it's an ActiveX control or a regular checkbox.

Thank you.

 

[New2013]

I was thinking that there might be a way to create some code that would (maybe a for/each loop) with a user form that would create the control with incremented numbering, but that's a horse of a different color.

 

[New2013]

I also tried

If Obj.Name Like "CheckBox*_*" Then

and that didn't work at all. I copy/pasted a range of the cbClearedOrNot_x controls to another worksheet and it named them all CheckBox1, CheckBox2, etc. So there's no way I can see to copy the controls from one worksheet that contains the correct naming convention to a different worksheet without manually going to each control and renaming it.

 

[BrianMH]

Unfortunately you can't rename controls programmatically.

 

[Rick Rothstein]

I also tried

If Obj.Name Like "CheckBox*_*" Then

and that didn't work at all. I copy/pasted a range of the cbClearedOrNot_x controls to another worksheet and it named them all CheckBox1, CheckBox2, etc. So there's no way I can see to copy the controls from one worksheet that contains the correct naming convention to a different worksheet without manually going to each control and renaming it.

The underline character is what stopped it from working because the default names (e.g., CheckBox1) does not have an underline character in it. Try this instead...

If Obj.Name Like "CheckBox*" Then

However, note that if you use the default names for all your CheckBoxes, then the only checkboxes you can have in your project are the ones that do the offset coloring. If you will have other CheckBoxes in the project that you do not want to have this feature you must rename them so that their first 8 characters are not "CheckBox".