save as code

T

Tim

Help again...
BTW Thanks Frank for the help on the print and hide dialog boxes the
other day...worked like a charm :)

My new problem...

The code below works great at saving my template as a range, name &
current date. I have assigned a button to run this macro code.

I would like to modify the code below to do all of the above +
1. change the file from .xlt to .xls
2. specify a location (path) to save this to, I want to use the same
location for every save.

Any help would be appreciated.

Thanks
Tim

Sub newname()
Dim old_fname
Dim new_fname
Dim save_fname
old_fname = "Centara Feasibility Study Tool.xlt"
new_fname = Range("A25").Value & " Feasibility Study " & Format(Date,
"DD MM YY")
save_fname = Application.GetSaveAsFilename(new_fname)
MsgBox save_fname
'Me.SaveAs Filename:=save_fname

End Sub
 
Top