Range.CommentThreaded (Excel)
Retorna um objeto CommentThreaded que representa o comentário encadeado associado à célula no canto superior esquerdo do intervalo.
Dim ctdCommentThreaded As CommentThreaded
Set ctdCommentThreaded = ActiveCell.CommentThreaded