COMMENTGET

Returns the comment associated with a particular cell.
For instructions on how to add a function to a workbook refer to the page under Inserting Functions

Also need NOTEGET

'rgeCell - The cell containing the comment

Public Function COMMENTGET(ByVal rgeCell As Range) As Text 
   COMMENTGET = rgeCell.Comment.Text 
End Function