Good Morning, Trying "in vain" to show the original file name in the "file name:" dialog box. Can anyone help?
================================
Sub RGH_SaveAs()
Dim FName
thisfilename = ActiveWorkbook.Name
thisfilenameinquotes = Chr(34) & thisfilename & Chr(34)
IniName =...