In the module for the worksheet in question, use th
Worksheet_SelectionChange event. Here is an example of how that can b
accomplished…

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 3 And Target.Column = 3 Then
If Target.Value < "" Then
Target.Value = ""
Else
Target.Value = "X"
End If
End If
End Sub

Piku

--
Message posted from http://www.ExcelForum.com