simple check box question

[vr4Legacy]

I'm sure this has been asked, but I can't find anything when searching.

I have deduced this much, you can't simply choose a cell and automatically make it a check box, it must be either a Form or Active X. Those can then be sized to place them over a cell.

However I did find an archived thread that mentioned something about being able to use a Worksheet_Selection Change event. Here is what it states

However, if you just want to click on a cell, and have a check or X appear in that cell, you can do that with a Worksheet_SelectionChange event, using the event to trap the selection of a cell and entering a check (or removing it) when it is selected. You can get a check mark from the Wingdings font (you will have to format the cell for Wingdings format and write the checkmark into the cell with a Chr(254) or Chr(252) function since it is outside the keyboard range).

Basically I have a list in an excel sheet that I want to check off different items as they are completed. Is there any way to simply select a cell and make it show an X and when selected again make it remove it?

Thanks in advance for your help!

 

[MickG]

Try this:-

Private [COLOR="Navy"]Sub[/COLOR] Worksheet_SelectionChange(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]If[/COLOR] Target.Column = 2 [COLOR="Navy"]Then[/COLOR]
  Target = IIf(Target = "X", "", "X")
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]If[/COLOR]
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[vr4Legacy]

Worked Perfect!!!

Thanks, exactly what I needed.

One more simple question, is there a way I can enter the column letter as opposed to the number? If not, it's understandable.

thanks again for the quick, simple reply!