macro to read the cell's comment

[ramkumarcn]

Hi,

I want to design a macro to check if the cell has a comment in it. If so, the macro should read the comment and store it in a variable. Please help me on this.

Ram

 

[VoG]

Try like this

Sub test()
Dim cmt As Comment, s As String
On Error Resume Next
Set cmt = ActiveCell.Comment
On Error GoTo 0
If cmt Is Nothing Then
    MsgBox "No comment"
Else
    s = cmt.Text
    MsgBox s
End If
End Sub

 

[ramkumarcn]

Thank you so much. It works perfectly.