How to Create a Macro That Counts Text Notes (Cell Notes)

MORE INFORMATION

Sample Macro 1: To Count Text Notes in a Selection

' This code counts the number of text notes in a selection.

   Sub CountNotesSelection()
       counter = 0
       'You must select the range first
       z = Selection.Address
       For Each x In ActiveSheet.Range(z)
           If Len(x.NoteText) > 0 Then counter = counter + 1
       Next
       MsgBox counter
   End Sub
				

Sample Macro 2: To Count Text Notes for the Entire Worksheet

     ' This code counts the number of text notes for the used range on a
   ' worksheet.

   Sub CountNotesSheet()
       counter = 0
       For Each x In ActiveSheet.UsedRange
           If Len(x.NoteText) > 0 Then counter = counter + 1
       Next
       MsgBox counter
   End Sub