Как определить наличие примечаний в рабочем листе и их количество — Visual Basic(Бейсик)

iCommentCount = ActiveSheet.Comments.Count
 
If iCommentCount = 0 Then
   MsgBox "Примечаний нет"
Else
   MsgBox "Примечаний : " & iCommentCount & " шт."
End If