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
    
MsgErr:
    MsgBox "Файл был перемещён или используется не по назначению! Обратитесь к администратору", vbExclamation + vbOKOnly
    Application.DisplayAlerts = True

End Sub