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

[Guest]

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.

 

[Guest]

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.

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

 

[Guest]

Thank you!
--
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