Try something like:

Place this in the WorkSheet Code:
-------------------------------------------------------------------------------
Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRange As Range
Set MyRange = Range("A1") ' <==== Change this ti SUIT your needs
If Not Application.Intersect(Target, MyRange) Is Nothing Then Call Macro2
End Sub
--------------------------------------------------------------------------------

Place the below in a Module:
================================================== ===
Sub Macro2()
Application.DisplayAlerts = True
res = MsgBox("Place the Message you what here....", , "Place a msgbox TITLE
here")
End Sub

================================================== ===

If the user selects the selected cell (A1) then the message will display.


Corey....