If not intersect(Activecell, Range("A1:H100")) Then
Msgbox ACtivecell.Address
End If

Untested, but should give some leads.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"John Collins" wrote in message
...
Hi
The question is: How to find if a specific cell has been selected and show
its Column, Row and Address?

Thank for your time.