Modifying SaveAs dialogue status bar

[Err]

Hi,

This code saves a copy of a workbook and it works fine

   Application.DisplayAlerts = False
   orig_wb.SaveAs Filename:="F:\EmailFile.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
   Application.DisplayAlerts = True

My issue is this message:

Can I either remove this message or change it to something like "Preparing Email"? Rather than "Saving As"


Thanks