Dear George

Try this which should work with Single click on any range.

1. In the required range (suppose ColD) in all cells enter small letter "e".
2. Select all cells in that range and change the font to Marlett.
3. Adjust the column width to look like a square check box
4. Right click on the sheet tab and hit view code. Paste the below code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Font.Name = "Marlett" And _
Target.CountLarge = 1 Then
Target.Value = IIf(Target.Value = "r", "e", "r")
End If
End Sub

Try single click on any of the cells in that range. To remove the check mark
click on another cell out of the range and again click on the cell.

If this post helps click Yes
---------------
Jacob Skaria


"George" wrote:

Can I create a method that when you click on a cell it will
enter a Check Mark or an X ?