Sub CommentCheck()
If ActiveCell.Comment Is Nothing = False Then
MsgBox ("Comment Found: " & ActiveCell.Comment.Text)
Else
MsgBox ("no comment here")
End If
End Sub
Sub ReturnComments()
If Intersect(ActiveCell, Cells.SpecialCells(xlCellTypeComments)) Is Nothing Then
MsgBox "No comment!"
Else
MsgBox ActiveCell.Comment.Text
End If
End Sub