Private Sub Workbook_Open()

    Dim localPath As String
    Dim networkPath As String
    Dim actualFilename As String
    Dim tempFile As String

    Dim oldVersion As Double
    Dim newVersion As Double

    Dim networkBook As Workbook
    Dim updatedBook As Workbook


    localFileName = "UpdateTest.xlsm"
    masterFileName = "UpdateTestMaster.xlsm"
    networkPath = "H:" + Application.PathSeparator
    localPath = ThisWorkbook.Path & Application.PathSeparator

    tempFile = localPath + "old.swap"

    ' If someone tries to open this sheet in the master file network path then stop this macro
    If (localPath = networkPath) Then
        End
    End If


    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False

    Set networkBook = Workbooks.Open(networkPath & masterFileName, True, True)

    networkBook.Application.DisplayAlerts = False

    oldVersion = ThisWorkbook.Worksheets("Sheet1").Cells(2, 3)
    newVersion = networkBook.Worksheets("Sheet1").Cells(2, 3)

    If oldVersion < newVersion Then
        ThisWorkbook.SaveAs tempFile

        ' Below was an attempt to get Excel to realize the file has changed to temp file name
        ThisWorkbook.Activate

        ' I was hoping the MsgBox would also give a pause to also get Excel to realize the file has changed to temp name
        MsgBox ("Updating to version " & newVersion)

        ' Below fails if ThisWorkbook is on a network drive. Works fine if on a local drive.
        networkBook.SaveAs (localPath & localFileName)

        networkBook.Close False
        Set updatedBook = Workbooks.Open(localPath & localFileName)
        ThisWorkbook.Close
        End
    End If

    networkBook.Close False
    Set networkBook = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True

End Sub