Dialogue Box - how do I get and save as file name entered?
 

I save a copy of an updated excel file each day to the same directory. I
want to create a macro that prompts for the daily file name and saves it to a
predetermined file location. THanks.
--
Tim C

"Tim C" wrote:

I save a copy of an updated excel file each day to the same directory. I
want to create a macro that prompts for the daily file name and saves it to a
predetermined file location. THanks.
--
Tim C

Use a modified version of this (no error checking added):-

Sub SaveMe()
myFileName = InputBox("Enter filename") & ".xls"
myDir = "C:\" 'enter correct path name
ActiveWorkbook.SaveAs Filename:= _
myDir & "\" & Filename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
end sub

Thank you!
--
Tim C


"bigwheel" wrote:

"Tim C" wrote:

I save a copy of an updated excel file each day to the same directory. I
want to create a macro that prompts for the daily file name and saves it to a
predetermined file location. THanks.
--
Tim C

Use a modified version of this (no error checking added):-

Sub SaveMe()
myFileName = InputBox("Enter filename") & ".xls"
myDir = "C:\" 'enter correct path name
ActiveWorkbook.SaveAs Filename:= _
myDir & "\" & Filename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
end sub