Fehlerwerte ansprechen

Habe jetzt folgendes Sub versucht. Klappt aber nicht.
Der fehler liegt in der If Zeile, aber leider weiss ich nicht wo!
Falls jemand eine Idee hat würde ich mich freuen.

Marc

Sub fehlerwert_test()

Dim r As Variant
r = 2
Sheets("Lieferantenauswertung").Select

If [AI8].Errors.Parent.Text = "#WERT!" Then MsgBox r

End Sub