'----------------------------------------------------------------------------------------------------------------
'Extract the text from a cell comment
'----------------------------------------------------------------------------------------------------------------


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




'----------------------------------------------------------------------------------------------------------------
'Extract the underlying address from a cell containing a Hyperlink
'----------------------------------------------------------------------------------------------------------------

Function GetAddress(HyperlinkCell As Range)
    GetAddress = Replace _
    (HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function