XL: Workbooks Containing User Forms Take Excessively Long Time to Save Across WAN Connections

Option Explicit
Private Const TEMPFILE As String = "c:\dlocal.xls" 
'Note, ensure the file path is valid.

Private Const TEMPFILE2 As String = "c:\dlocal2.xls" 
'Note, ensure the file path is valid.

Private strOriginalName As String
Public bSaving As Boolean

Public Sub SaveLocalThenCopy()
    Dim wbk As Workbook, wbk2 As Workbook
    Set wbk = ThisWorkbook
    If UCase(ThisWorkbook.FullName) <> UCase(TEMPFILE) Then strOriginalName = ThisWorkbook.FullName
    If Dir(TEMPFILE) <> "" Then Kill TEMPFILE
    If Dir(TEMPFILE2) <> "" Then Kill TEMPFILE2
    ThisWorkbook.SaveAs TEMPFILE
    ThisWorkbook.SaveAs TEMPFILE2
    FileCopy TEMPFILE, strOriginalName
    Set wbk2 = Workbooks.Open(strOriginalName)
    bSaving = False
    wbk.Close False
End Sub
						

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If bSaving Then Cancel = False: Exit Sub
    Dim iAns As Integer
    iAns = MsgBox("Do you wish to Save As...?", vbYesNoCancel, "Save")
    Select Case iAns
        Case vbYes
            Cancel = True
            bSaving = True
            Application.Dialogs(xlDialogSaveAs).Show
            bSaving = False
            Exit Sub
        Case vbNo
            'Do normal - local save.
        Case vbCancel
            Cancel = True
            Exit Sub
    End Select
    bSaving = True
    Cancel = True
    Application.OnTime Now + TimeValue("00:00:01"), "SaveLocalThenCopy"
End Sub