vinden van commentaar in een bereik

Sub FindComments()
    Dim rngComments As Range
    Set rngComments = Selection
    On Error Resume Next
   ' Set rngComments = rngComments.SpecialCells(xlCellTypeComments)
    On Error GoTo 0
  If rngComments Is Nothing Then
        MsgBox "heeft geen commentaar"
    Else
    MsgBox "heeft wel commentaar"
    End If
  
End Sub

Sub FindComments()
  On Error Resume Next
  For Each cl In Selection.SpecialCells(-4144)
    If Not Intersect(cl, Selection) Is Nothing Then c00 = c00 & cl.Address & vbLf
   Next cl
   If Len(c00) Then MsgBox c00
End Sub

Private Sub CmdFindComment_Click() 
 For Each cl In Selection
    If Not cl.Comment Is Nothing Then c00 = c00 & cl.Address & vbLf
  Next cl
 If Len(c00) Then MsgBox c00
End Sub

Private Sub CmdFindComment_Click()
  On Error Resume Next
  For Each cl In Selection.SpecialCells(-4144)
    c00 = c00 & cl.Address & vbLf
   Next cl
   If Len(c00) Then MsgBox c00
End Sub

Sub MijnCommentaren()
   On Error Resume Next
   Set c = Selection.SpecialCells(xlCellTypeComments)
   If Err.Number <> 0 Then MsgBox "foutje bedankt" & vbLf & Err.Number & vbLf & Err.Description: GoTo Einde
   On Error GoTo 0
   MsgBox "cellen met commentaar " & c.Address
Einde:
End Sub