On Error Resume Next

Sub Vorgaben_Import1()
On Error Resume Next
Dim strPfad As String
Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" & "Vorgaben"
MsgBox "1"
If Err = 0 Then
MsgBox "2"
ThisWorkbook.Worksheets("Vorgaben").Range("B10:N105").Value = Workbooks("Vorgaben").Worksheets(" _
Vorgaben").Range("A4:M99").Value
ThisWorkbook.Worksheets("Vorgaben").Range("P10:AD105").Value = Workbooks("Vorgaben").Worksheets( _
"Vorgaben").Range("O4:AC99").Value
ThisWorkbook.Worksheets("Vorgaben").Range("C107:D207").Value = Workbooks("Vorgaben").Worksheets( _
"Vorgaben").Range("B101:C202").Value
ThisWorkbook.Worksheets("Master").Range("A2:E100").Value = Workbooks("Vorgaben").Worksheets(" _
Master").Range("A2:E100").Value
MsgBox " Die Daten wurden kopiert! " _
& Chr(13) & Chr(13) & " Sie können die Vorgaben-Datei auf dem Desktop löschen."
Range("B10").Select
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
MsgBox "4"
Beenden
End If
MsgBox "5"
MsgBox " Die Datei -Vorgaben- ist nicht vorhanden! " _
& Chr(13) & Chr(13) & " Bitte die Datei zuerst über den Button Vorgaben exportiern " _
& Chr(13) & " (aus dem vorigen Jahr) erstellen und bearbeiten, " _
& Chr(13) & " und den Vorgang wiederholen! "
On Error GoTo 0
End Sub