Worksheet Selection Change

[svmac]

Can someone tell me how to show comments on a particular cell when it is active only.

Thnx
Stuart

 

[Tom Urtis]

Try something simple like this in your sheet module, using a message box as the medium.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Comment
Set c = Target.Comment
On Error Resume Next
If Not c Is Nothing Then
MsgBox c.Text, , "The comment in this cell is..."
End If
End Sub

 

[Dave Hawley]

Another way

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
On Error Resume Next
ActiveCell.Comment.Visible = True

End Sub