How to Click Cell to add an X to a cell and click again to remove it

[klitton7]

See attachment. We would like to be able to send the document to users who will click the box when the step is finished. If they need to remove the checkmark, they could click again. I would like a rather large "X" to be displayed in the box.

 

[Micron]

I'm assuming you're after a vba solution. Regardless, using checkboxes might be a better idea. AFAIK, the only 2 options you'd have vba event-wise is BeforeRightClick or Worksheet_SelectionChange. The latter would fire upon every cell click and while that won't necessarily be noticed, it may cause other vba subs or functions to run. That may be preventable. The right click would only fire on a mouse right button click, which would be OK as long as you'd never want the right click (context) menu for those cells. Here's how you might do it with right click:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

Select Case Target.AddressLocal
    Case "$B$3"
        Target = "X"
        Target.Characters.Font.Size = 20
        Cancel = True
End Select
   
End Sub

EDIT - rather than repeat that x times I might try to think of a way that doesn't repeat the same basic code 5 or more times.

 

[klitton7]

Thanks for your response. I decided to convert the form to a pdf and add check boxes.

 

[Micron]

NP. Thanks for the recognition.