save file with current date

[spq24]

Hello

I am trying to save the file with a value from a cell followed by the current date

example: filename 5-26-2011

Here's the code I have:

ActiveWorkbook.SaveAs Filename:=Range("O29").Value & Format(Now(), "mm-dd-yyyy")

When I do that an error pops up:
Compile error:

Wrong number of arguments or invalid property assignment

can anyone help?

 

[Datsmart]

Your code worked in a test workbook for me.

What do you have in cell "O29"?
Could it contain characters not allowed in a filename?

 

[texasalynn]

try this

Sub Savefile()
TDate = Format(Date, "mm-dd-yyyy")
ActiveWorkbook.SaveAs Filename:=Range("O29").Value & TDate
End Sub

 

[spq24]

I'm still getting the same error. It goes right to the "Format" argument which has nothing to do with what's in Cell O29 it has to do with the date. It worked once but it's not working now and I cna't figure it out

 

[texasalynn]

please post what you have in O29

did you try my code? It works for me

 

[spq24]

Its just text that is formatted as General and yes I tried yours as well. I really can't figure out why I'm getting this error

 

[spq24]

is there anyway around this? Like a formula or I can copy and paste...I can't get around that right now cause the today() formula uses / which I can't save with

 

[Ruddles]

Third time lucky... what's in O29?

 

[Jonmo1]

do you have another function or macro that you've named "Date" ?

If so, rename it to something else...say MyDate

Avoid using VBA keywords as precedure names and variables.

 

[spq24]

nothing else has date in it in the entire workbook...this makes no sense