System Error &H80010108 (-2147417848) object invoked disconnected client

Hi all,

Hoping you can help, as I am absolutely stumped. I have created workbooks for four health regions to collect data, which then needs to be resubmitted via FTP, but with de-identified data. The end users have little to no excel experience, thus had to make it simple as possible. Created a button that runs the macro (below) to deidentify (clear) all cells where there could possibly be personal identifying information. Runs fine on my cpu, but one user (so far) has received the error noted in the title. Both running excel 2003 with SP3 (I have version 11.8169.8172, user has 11.8316.8221), I have XP professional SP2, user has XP professional SP3. Spent hours searching and reading suggestions online, to no avail. Any simple solutions anyone can come up with would be truly appreciated.

Thank you in advance!

Sub garblednewfile()

ActiveWorkbook.Save
Sheets("Find a patient").Select

ChDir Range("B54 ")
    ActiveWorkbook.SaveAs Filename:=Range("B55") & Range("B56") & Range("B57 ").Value & Format(Date, " mmmyyyy") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Sheets("data").Select
    Range("B4").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B4").Select
    Selection.Copy
    Range("B4:F65536").Select
    ActiveCell.FormulaR1C1 = ""
    Application.CutCopyMode = False
    
    Sheets("followup").Select
    Range("B4").Select
    ActiveCell.FormulaR1C1 = ""
    Range("B4").Select
    Selection.Copy
    Range("B2:F65536").Select
    ActiveSheet.Paste
    Range("C13").Select
    Application.CutCopyMode = False
    
    Sheets("Find a patient").Select
    Range("I14").Select
    ActiveCell.FormulaR1C1 = ""
    Sheets("Find a patient").Select
    Range("I23").Select
    ActiveCell.FormulaR1C1 = ""
     Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close


End Sub