Sub writebook()
Dim WBNew As Workbook
Application.EnableEvents = False
String_Date = Format(Date, "mmddyy")
WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process" & _
String_Date & ".xls"
Application.EnableEvents = True

End Sub

"Nils Titley" wrote:

I want to add a date at end of the file name. How do I do that?

Also I want to over write a file if it exist at this location but I don't
want a box to pop up.

Dim WBNew As Workbook

WBNew.SaveAs "C:\Temp\Lift Logger\Lift Logger Process.xls"

Look like this: Lift Logger Process 031908.xls

Thanks