Desert Piranha
08-15-2005, 08:58 PM
Hi,
This code works fine but i want to change it.
Sub SaveAsTo()
Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & Format(Date, "mm-dd-yyyy") & ".xls"
End Sub
It saves the file 'Test' as
IE 'Test.xls08-15-2005.xls'
What i am trying to do is get the .xls out
IE 'Test 08-15-2005.xls'
I know its a no brainer but i am having a senior moment.
I don't want to hard code the path/filename.
Thx
Dave
This code works fine but i want to change it.
Sub SaveAsTo()
Application.ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & Format(Date, "mm-dd-yyyy") & ".xls"
End Sub
It saves the file 'Test' as
IE 'Test.xls08-15-2005.xls'
What i am trying to do is get the .xls out
IE 'Test 08-15-2005.xls'
I know its a no brainer but i am having a senior moment.
I don't want to hard code the path/filename.
Thx
Dave