Add Comment Problem
 

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?

Add Comment Problem
 

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

Add Comment Problem
 

Target.Address = "$A$1:$A$20" is only true when the selection is the entire
range A1:A20; to identify whether any cell in that range is selected you need
to do this:
If Not(Intersect(Target, Range("$A$1:$A$20")) Is Nothing) 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
--
- K Dales


"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?

Add Comment Problem
 

Mucho thanks to both of you - got it working!! Have a great day.....Paige

"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?