Обработка ошибок - где ввести 'Exit Sub'?

Question

У меня есть код ниже, который просто открывает файл.Если в указанном файле нет файла, то мне требуется сообщение об ошибке.Проблема, с которой я столкнулся с приведенным ниже кодом, заключается в том, что когда файл существует, он открывается, вводит «Hello» в ячейку A1, однако MsgBox все равно появляется.Я думаю, что у меня есть Exit Sub в неправильном месте ??

Sub Test()

Dim Location As String
Dim File1 As String
Dim Err1 As String

On Error GoTo Err1
  Location = "S:\HRIS\Restricted\Information Services\Regular Reports\DRS _   
    Automation\" & Format(Date, "DD.MM.YYYY")
      File1 = "\Test.xlsx"
        Workbooks.Open FileName:=Location & File1

Range("A1").Value = "Hello"

Err1:
  MsgBox "Could not Locate " & Location & File1
Exit Sub

End Sub

Answer 1

ход Exit Sub до Err1 метка:

Sub Test()

    Dim Location As String
    Dim File1 As String
    Dim Err1 As String

    On Error GoTo Err1
        Location = "S:\HRIS\Restricted\Information Services\Regular Reports\DRS Automation\" & Format(Date, "DD.MM.YYYY")
        File1 = "\Test.xlsx"
        Workbooks.Open Filename:=Location & File1

    Range("A1").Value = "Hello"

    Exit Sub

Err1:
      MsgBox "Could not Locate " & Location & File1

End Sub