Easiest one:

In the VBE right-click the worksheet, view code, and put in:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = "O"
End Sub

RBS

"Wayne" wrote in message
...
How do I draw a cirle in a cell when it is selected?