VBA Save w/ date showing Wrong Date

I am trying to safe a file including todays date. The macro will exacute, but the date is wrong and strung together
i.e. Vendor Validation Report 40644.xls \

I have tried using & Format(NOW, MM - DD - YY) & ".xls", as well as & Format(Date, MM - DD - YY) & ".xls"

niether seem to pull the correct date or format it in "MM-DD-YY" format

Any Tips - I am very new to VBA

thanks


You can View my code below:

Sub SAVE_TEST()
'
' SAVE_TEST Macro
'
'
'

ChDir "C:\~VENDOR_VALIDATION"
ActiveWorkbook.SaveAs Filename:= _
"C:\~VENDOR_VALIDATION\Vendor Validation Report" & Format(Date, MM - DD - YY) & ".xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

With ActiveSheet
Range("A1").Select
End With

End Sub

Nope that doesnt work either. it generate's the same bogus date.....

These do not work, I have tried so many variations, but none of them work. I am using Excel 2007, could this be part of the issue?

In addition, nobody has included the code for the file extention type. and if I dont script the excel format type (i.e. 97-2003 or 2007) it will save but I loose all the formatting on save and when I open it kicks me a warning that the file is not in the format of its listed extention....

I have attached the Workbook I am attempting to save with the current date, and I attached the PERSONAL.XLS that houses all the code. Hope this helps

I completly belive it is working on other machines, but not only have I tried this exact script, I retried it and still it doesnt work, it kicks this invalid dummy date. Is this a problem with my excel system referance?

John:

That worked, Why is it that this code worked and none of the other variations did?

Thanks for the help everyone...

Brad