Count Comments : Cell Comments « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Cell Comments

Count Comments

 
Sub CountComments()
    CommentCount = 0
    For Each cell In ActiveSheet.UsedRange
        On Error Resume Next
        x = cell.Comment.Text
        If Err = 0 Then CommentCount = CommentCount + 1
    Next cell
    Debug.Print CommentCount
End Sub








Related examples in the same category

1.Get the comment text
2.Converts docstring column into comments on name column.
3.Tracking cell changes in a comment
4.Clean the comment
5.resize Comments
6.Toggle Comments