Excel VBA - Подсчет комментариев на рабочем листе.

Подсчет комментариев на рабочем листе.

Q: Как узнать есть ли хоть один Notes (комментарий) в рабочем листе,  кроме как перебором по всем ячейкам? . Без этого  не работает:

A: В Excel'97 эта проблема может быть решена вот как:

 ' Function IsCommentsPresent 
 ' Возвращает TRUE, если на активном рабочем листе имеется хотя бы 
 ' одна ячейка с комментарием, иначе возвращает FALSE 

 Public Function IsCommentsPresent() As Boolean 
   IsCommentsPresent = ( ActiveSheet.Comments.Count  0 ) 
 End Function