Maybe something like this would work for you... But note that if your
original file name would have an underscore character, you might run into
problems..

Sub jkt()
Dim iPos As Integer

With ThisWorkbook
iPos = InStrRev(.Name, "_")
If iPos = 0 Then
.SaveAs .Path & "\" & Replace(.Name, ".XLS", "_" & Format(Now,
"m-d-yyyy") & ".xls", 1, -1, vbTextCompare)
Else
.SaveAs .Path & "\" & Left(.Name, iPos) & Format(Now, "m-d-yyyy") &
".xls"
End If
End With

End Sub



--
Hope that helps.

Vergel Adriano


"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