Добавление оператора обработки ошибок IF в мой код Open File

Question

У меня есть кусок кода, который работает очень хорошо, когда пользователь выбирает правильную книгу. Однако я пытаюсь добавить некоторую обработку ошибок, чтобы вставить MsgBox с предупреждением, если они выбирают не ту книгу. На данный момент он просто отлаживается с помощью:

Ошибка времени выполнения 9 Подстрочный индекс вне диапазона:

Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
If Fname = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname)

    SrcWbk.Sheets("Results").Range("C7:AH43").Copy DestWbk.Sheets("RAW DATA").Range("A1")

SrcWbk.Close False

Я пытался, но безуспешно добавив следующий код:

    If Right(Fname, 11).Value = "Results.xls" Then

            MsgBox "Please Select The Results Sheet", vbExclamation
            Exit Sub

        Else

    SrcWbk.Sheets("Results").Range("C7:AH43").Copy DestWbk.Sheets("RAW DATA").Range("A1")

SrcWbk.Close False

        End If