File saving script problem

[mike79]

This script I'm using for my excel workbook crashes everytime I hit the save button. Anyone else know why it's doing it?
It does exactly what I want, it just crashes everytime I try to save.


Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
On Error GoTo Err_Workbook_BeforeSave
Application.EnableEvents = False
Sheets("Sheet1").Range("a1") = " " & Date & " klokken " & Time
ActiveWorkbook.SaveAs "C:\Temp\Dreports" & Format(Date, "mmddyy") & ".xls"
Err_Workbook_BeforeSave:
Application.EnableEvents = True
End Sub

 

[agihcam]

what do you mean by "crashes"? excel hang or what?

 

[mike79]

This Error:


http://www.exthree.com/excelerror.JPG