Private Sub Врезультат()
    Const strName As String = "Рез.rzt"
    Const strNameL As String = "Результат"
    Dim str1 As String
         
    On Error GoTo MsgErr
     
    If ActiveSheet.Range("N30") = "ОК" Then
     
      str1 = ThisWorkbook.Path & Application.PathSeparator
      Workbooks.Open Filename:=str1 & strName
         
      With Workbooks(strName)
        ThisWorkbook.Sheets(strNameL).Copy Before:=Workbooks(strName).Sheets(1)
       .Save
       .Close 0
      End With
    End If
Exit Sub   
MsgErr:
    MsgBox "Файл был перемещён или используется не по назначению! Обратитесь к администратору", vbExclamation + vbOKOnly
    Application.DisplayAlerts = True
 
End Sub

If err<>"" Then  MsgBox ..