Check mark box

Here is a version that works by swapping boxes in and out based on their names.

Please Login or Register  to view this content.

Did you change the name of the BOXES sheet by any chance or the names of the boxes?

The boxes have specific names: Ref_Off_Box, Ref_On_Box, Sur_Off_Box ... OTH_On_Box. These are swapped out with Off_Box and On_Box on the Boxes sheet.

At any rate, I cannot duplicate the error.

Here is a version that uses Wingding fonts and piggybacks onto your cell selection change event.

I just downloaded the file I sent in the prior post in case I attached the wrong file or it got corrupted in the upload. It still works here. Hmmm. Can you try it on another machine?

About the only thing I can see different is that you have 2010 and I have 2016, but I don't think I've used any version specific code.

Can you include a screen shot that shows the line in the VB editor that is causing the issue? There are a couple of places where this error COULD occur. I'd like to concentrate on the specific item.

Well, you did not mention protecting the sheet (or I didn't catch it) . I added in a line of code that allows the code to be executed but still keeps the sheet protected as far as the user is concerned.

This one has me stumped. If I take the version you posted and run it, I get an error when it runs because it tries to change the name of the shape ONLY when it is locked - I know what is happening, I don't have a clue as to why.

The version I post here works fine. I compared the two files side-by-side. They are identical as far as I can see except for file size. Yours is 434K mine is 170K. So obviously yours has something mine does not. Are you making any modifications to the file I sent you before running it?

P.S. as for the check box.

The box with the X is the best I could do on short notice. I had to take your box, superimpose the "X" on it, group it and then save it as a merged graphic. I could not find any readily-available clip art to suit my purpose.

If you want to change the appearance of the boxes, find suitable blank and checked boxes and save them as images on the Boxes sheet. Remove the existing boxes. Name the blank box Off_Box and name the checked box as On_Box.