Range.Comment (Excel)

Retorna um objeto comment que representa o comentário associado à célula no canto superior esquerdo do intervalo.

Dim cmmComment As Comment
Set cmmComment = ActiveCell.Comment