Range.CommentThreaded (Excel)

Returns a CommentThreaded object that represents the threaded comment associated with the cell in the upper-left corner of the range.

Dim ctdCommentThreaded As CommentThreaded
Set ctdCommentThreaded = ActiveCell.CommentThreaded