Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Get the comment text

Function GetCommentText(rCommentCell As Range)      Dim strGotIt As String          On Error Resume Next          strGotIt = WorksheetFunction.Clean _              (rCommentCell.Comment.Text)          GetCommentText = strGotIt          On Error GoTo 0      End Function =GetCommentText(A1)