mit SpecialCells Fehler finden

Sub wird ein bestimmter Range übergeben - in einer der Zellen steht #WERT! (als String und  _
nicht als Formelergebnis)
Ich verstehe nicht, weshalb ich als Ergebnis keine msgbox mit der Ausgabe von 1 erhalte ( _
anstelle dessen wird die Range Adresse ausgegeben)

Sub ZaehlenFehler(rng As Range)
'Dim Bereich As Range
'Set Bereich = rng
On Error GoTo NichtsGefunden
MsgBox rng.Cells.SpecialCells(xlCellTypeAllFormatConditions, 16).Count
Exit Sub
NichtsGefunden:
'MsgBox "Keine Zellen mit Fehlerwerten gefunden."
Debug.Print rng.Address
End Sub