Стоит задача расставлять комментарии в зависимости от содержимого ячеек. Причем содержимое периодически меняется и операцию нужно многократно повторять.

Если просто добавлять комментарий:
        With Worksheets(ActiveSheet.Name).Cells( row, col).AddComment
          .Visible = False
          .Text "Текст комментария"
        End With
а комментарий уже есть, то возникает ошибка.

Если же попытаться сначала удалить старый комментарий:
        Worksheets(ActiveSheet.Name).Cells(row, col).Comment.Delete
а его в клетке нет, то тоже ошибка.

Как из макроса проверить, есть ли в клетке комментарий? Причем сканировать клетки нужно по строкам и столбцам, поэтому Comments вроде не годится ...

 

 

Спасибо ! 

Работает. Я полагаю, таким образом можно проверять все объекты, которые требуется создавать перед использованием? 

можно