本示例显示活动工作表中批注的个数。

MsgBox ActiveSheet.Comments.Count