Private Sub Workbook_Deactivate()
    Dim n As String
    If Workbooks.Count > 1 Then
        With ActiveWorkbook
        n = .FullName
        .Close savechanges:=False
        End With
        Dim xlApp As New Excel.Application
        On Error Resume Next
        xlApp.Workbooks.Open Filename:=n
        If Err.Number > 0 Then
            xlApp.Quit
        Else
            xlApp.Application.Visible = True
        End If
        Set xlApp = Nothing
    End If
End Sub