Extract Comment From A cell

Here is the VBA code for extracting the comments from a cell


Function extractcomment(x As Range) As String

extractcomment = Right(x.Comment.Text, Len(x.Comment.Text) - application.WorksheetFunction.Search(":", x.Comment.Text))
End Function

or

Function extractcomment(x As Range) As String

extractcomment = x.Comment.Text
End Function


Suppose you want to extarct the comments from cell A2 type =extractcomment(a2)in any cell.