Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Worksheet Selection Change

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    Adelaide, Australia
    Posts
    182
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

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

    Thnx
    Stuart

  2. #2
    MrExcel MVP Tom Urtis's Avatar
    Join Date
    Feb 2002
    Location
    San Francisco, California USA
    Posts
    11,162
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  3. #3
    Rest in Peace
    Join Date
    Feb 2002
    Posts
    1,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Another way

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

    End Sub

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •