Hi jkt,

You might have duplication file unless you delete it after you saveas...
you can try this one:

Sub SaveAsDate()
Dim Wbk As Workbook, Addr As String
Set Wbk = Workbooks("ABC.xls")
Addr = Wbk.FullName 'need variable to delete file
Wbk.SaveAs Replace(.Name, ".xls", "") & "_" & _
Format$(Now, "m-d-yyyy") & ".xls"
Kill Addr
End Sub

--

Regards,

Halim


"jkt" wrote:

I want to save a file as its original filename with today's date applied to
the end of the filename.

For example:

filename = budget.xls

I open, make changes, etc., click macro button. File is saved as
budget_5-7-2007.xls

Can someone help me do this? I wan the same directory location as the
original file to be used when saving.

thanks,
jkt