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

T

Tim C

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.
 
B

bigwheel

Tim C said:
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.
Click to expand...

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
 
T

Tim C

Thank you!
--
Tim C


bigwheel said:
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
Click to expand...
 
Top