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?