After using the Macro below, Sheet1 is re-named: 79601 ABC EDI RESUBS MACRO

I want the name of the tab to remain: Sheet1

Can someone tell me how I can fix this?

Option Explicit

Sub SaveAsTextFileInABCEDI_TodayFolder_SaveMacro()

' SaveAsTextFileInABCEDI_TodayFolder_SaveMacro Macro

ChDir _
"C:\Program Files\Business Objects\BusinessObjects 5.0\UserDocs\ABC
EDI\Today"
ActiveWorkbook.SaveAs Filename:= _
"C:\Program Files\Business Objects\BusinessObjects 5.0\UserDocs\ABC
EDI\Today\79601 ABC

EDI RESUBS MACRO.txt" _
, FileFormat:=xlText, CreateBackup:=False
ChDir _
"C:\Program Files\Business Objects\BusinessObjects 5.0\UserDocs\ABC
EDI\1ABC Macros"
ChDir _
"C:\Program Files\Business Objects\BusinessObjects 5.0\UserDocs\ABC
EDI\1ABC Macros"
ActiveWorkbook.SaveAs Filename:= _
"C:\Program Files\Business Objects\BusinessObjects 5.0\UserDocs\ABC
EDI\1ABC Macros\79601

ABC EDI RESUBS MACRO.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
--
Thank you so much for your help!