Does cell contain a comment?

[mikeymay]

Does anyone have some code that will check a cell for a comment? And if a comment is present, return the comment.


Thanks

 

[patrickmuldoon99]

Hi Mikey

This will check if a comment exists in activecell, and if so, will return the comment in a message box:

Sub CommentCheck()
If ActiveCell.Comment Is Nothing = False Then
     MsgBox ("Comment Found: " & ActiveCell.Comment.Text)
Else
     MsgBox ("no comment here")
End If
End Sub

 

[DominicB]

Good morning mikeymay

Does this help :

Sub test()
If Not ActiveCell.Comment Is Nothing Then MsgBox ActiveCell.Comment.Text
End Sub

HTH

DominicB

 

[SydneyGeek]

Here's one option:

Sub ReturnComments()
    If Intersect(ActiveCell, Cells.SpecialCells(xlCellTypeComments)) Is Nothing Then
        MsgBox "No comment!"
    Else
        MsgBox ActiveCell.Comment.Text
    End If
End Sub

Denis

 

[mikeymay]

thanks guys!