Here is my question:


...

my code:

Code:
Sub file()

On Error GoTo ErrorHandler

    pfad = ActiveWorkbook.Path & "\test.xls"
    
    Workbooks.Open ActiveWorkbook.Path & "\test.xls", ReadOnly = False
    
    Workbooks("test.xls").Worksheets("sheet1").Activate
    
    MsgBox "test.xls geöffnet", vbOKOnly
    ....
    
    Workbooks("test.xls").Close SaveChanges = False
    
    Workbooks("testbook.xls").Worksheets("sheet1").Activate
   
Exit Sub
ErrorHandler:

    MsgBox "Es ist ein Fehler aufgetreten. Fehler-Nr.: " & Err & vbCrLf & _
    Error(Err), vbOKOnly
    
End Sub