Overwrite Currently Open Excel Workbook File With A New File

[Excel Fox]

 
Sub ReplaceWBK()
    Dim strPath As String
    With ThisWorkbook
        strPath = .FullName
        .ChangeFileAccess xlReadOnly
        Kill ThisWorkbook.FullName
        FileCopy "Source Path\FileName", ThisWorkbook.FullName
        .Close 0
    End With
    Workbooks.Open (strPath)
    
End Sub