Maybe...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
dim myCell as Range
dim myRng as range
set myrng = me.range("a1:A20")
if intersect(target,myrng) is nothing then exit sub
for each mycell in intersect(target,myrng).cells
with mycell
.clearcomments 'remove old comment if there is one
.AddComment.Text Text:="Gold is a good thing to have..."
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
next mycell
End Sub

By looking at target.address = "$A1:$A20", you actually had to select that whole
range--and nothing more.

And then adding one comment to that whole range would still cause problems.

Paige wrote:

Cannot get this to work; help would be appreciated. Am trying to have a
comment show whenever someone goes to any cell within range A1:A20. I've put
the following (and all variations I can think of to try) in the module for
the tab that has range A1:A20, as follows:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1:$A$20" Then
With Range("$A$1:$A$20")
.AddComment.Text Text:="Gold is a good thing to have..."
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
End If
End Sub

Can someone tell me what I'm doing wrong please?

--

Dave Peterson