probleem controle van rechthoek of 3 hoek in het bereik

Function IsRechthoekInMijnBereik(RngVerlofBereik As Range)
 
Dim shp As Shape
Dim wrkrng As Range
Set wrkrng = RngVerlofBereik
wrkrng = RngVerlofBereik.SpecialCells(xlCellTypeComments)
MsgBox ("Aaantal opmerkingen in bereik" & " " & wrkrng.Count)
For Each shp In ActiveSheet.Shapes   'Controle voor elke figuur in het bereik
    If shp.AutoShapeType = msoShapeRectangle Then
    
        'If Not Intersect(RngVerlofBereik, shp.TopLeftCell) Is Nothing Then
        If Not Intersect(RngVerlofBereik, shp.TopLeftCell) Is Nothing Then
            IsRechthoekInMijnBereik = True '= return code
            Exit Function
        End If
    End If
Next shp

IsRechthoekInMijnBereik = False
End Function

Function IsRechthoekInMijnBereik(RngVerlofBereik As Range)
  'Geeft een true weer als er zich in het bereik een rechthoek is gevonden

Dim shp As Shape
For Each shp In ActiveSheet.Shapes    'Controle voor elke figuur in het bereik

'Deze if is nodig omdat hij anders denk dat er al een afwezigheidscode in de cel staat.
'Dit komt omdat er een intersectie gemaakt word met de opmerking als je de de cel kiest juist rechts boven de cel met de opmerking
If shp.Type = msoComment Then
   IsRechthoekInMijnBereik = False '= return code
    Exit Function


ElseIf shp.AutoShapeType = msoShapeRectangle Then
        If Not Intersect(RngVerlofBereik, shp.TopLeftCell) Is Nothing Then
       ' If Not Intersect(RngVerlofBereik, shp.ToprighttCell) Is Nothing Then
            IsRechthoekInMijnBereik = True '= return code
            Exit Function
        End If
    End If
Next shp
IsRechthoekInMijnBereik = False
End Function

code verwijderd na lezen opmerking HSV #8

@HSV, als grapje bedoeld,
 Sub MaakDriehoekenVanRechthoeken()
   For Each shp In ActiveSheet.Shapes
      If shp.AutoShapeType = 1 Then shp.AutoShapeType = 7
   Next
    Application.DisplayCommentIndicator = xlCommentAndIndicator
End Sub

Sub cmdVerlofcodeinbereik_Click()
 If Not ActiveCell.Comment Is Nothing Then MsgBox "hierin staat een commentaar."
end sub

Sub MijnCommentaarCellen()
   On Error Resume Next
   Set c = Sheets("afwzeigheid sjabloon").Range("B3:R45").SpecialCells(xlCellTypeComments)
   If Not c Is Nothing Then
      For Each c0 In c.Cells
         s = s & vbLf & c0.Address & vbTab & c0.Value & vbTab & c0.Comment.Text
      Next
      MsgBox Mid(s, 2)
   End If
End Sub