on Error Fehlerverfolgung

ich versuche mit folgenden Programmzeilen eine Fehlermeldung abzufangen, leider funktioniert das nicht.

Kann mir jemand helfen ?

Pfad = ActiveWorkbook.Path
Workbooks.Open Filename:=Pfad & "\" & Materialliste
On Error GoTo ErrorHandler

ErrorHandler:
MsgBox ("stellen Sie sicher, daß sich in dem Verzeichnis aus dem Sie " _
& vbCr _
& " die Positionsbezogene Materialliste geöffnet habe, sich die Datei" _
& vbCr _
& " mit dem Namen Materialliste befindet")
Exit Sub