Worksheet Selection Change

svmac · Mar 17th, 2002, 04:27 PM

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

Thnx
Stuart

Tom Urtis · Mar 17th, 2002, 06:47 PM

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 · Mar 17th, 2002, 08:36 PM

Another way

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

End Sub

Mar 17th, 2002, 06:47 PM	#2
Tom Urtis MrExcel MVP Join Date: Feb 2002 Location: San Francisco, California USA Posts: 10,388	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 __________________ Tom Urtis Microsoft MVP - Excel

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 17th, 2002, 04:27 PM	#1
svmac Board Regular Join Date: Feb 2002 Location: Adelaide, Australia Posts: 182	Can someone tell me how to show comments on a particular cell when it is active only. Thnx Stuart

Mar 17th, 2002, 08:36 PM	#3
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Another way Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.DisplayCommentIndicator = xlCommentIndicatorOnly On Error Resume Next ActiveCell.Comment.Visible = True End Sub