Hi,

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.[A1]) Is Nothing Then _
MsgBox "Hello World!"
End Sub

Regards,
KL

"Andrew" wrote in message
...
Hi,

I have seen code for Private Sub Worksheet_Change which allows code to be
excecuted as a result of a change to a cell but is there anything that can
identify when a cell is simply selected?
--
Andrew