SaveAs Error

[cindy.gilmore]

Hi I am having a problem with a line of code and could use some help. Excel gives me the object workbook error at the second line where the path is specified. So its really weird it bugs up at that line but the file does have the correct new name but it is not actually saved. Please help me.

Workbooks("Test.xlsm").Activate
ActiveWorkbook.SaveAs "\\wft\us\HOU28-Groups\GSS\Monthly Reports\Order Stats\" & Format(Now, "yyyy") & "\" & Format(Now, "'MM'-MMMM") & "\Test" & Format(Now, " mm-dd-yyyy") & ".xlsm"
Workbooks("Test" & Format(Now, " mm-dd-yyyy") & ".xlsm").Close

 

[VoG]

Perhaps

ActiveWorkbook.SaveAs Filename:="\\wft\us\HOU28-Groups\GSS\Monthly Reports\Order Stats\" & Format(Now, "yyyy") & "\" & Format(Now, "'MM'-MMMM") & "\Test" & Format(Now, " mm-dd-yyyy") & ".xlsm", FileFormat:=52

 

[cindy.gilmore]

No that did not work the line of code turned red like is was an incomplete statement.

 

[VoG]

No that did not work the line of code turned red like is was an incomplete statement.

It didn't do that for me. Are you sure you copied the complete code?

 

[cindy.gilmore]

i did miss the end part of it. But i still got the object workbook failed error

 

[cindy.gilmore]

Well I figured it out. The Format(Now,"'MM'-MMMM") was wrong needs to look like Format(Now,"MM-MMMM")

 

[VoG]

I should have spotted that

Thanks for the feedback.