Harald: Thank you! I had a MISSING reference to File Management 1.0. I
was searching for where XP stashed the new one. But when I just unchecked
it, it's all fine now. I appreciate the boost.

Ed

"Harald Staff" wrote in message
...
Hi Ed

If you get errors on perfectly valid syntax, check references, unselect
everything marked "missing", Save and retry. Perhaps you tried that
already,
but worth mentioning.

Your code assumes that the filename ends with ".xls". It may not if the
horrid "hide file extensions for known files" is selected within
Windows -and it tends to be. So first, test if the right part actually is
".xls" (test case insensitive !!!) before replacing it with "1.xls"

HTH. Best wishes Harald

"Ed" skrev i melding
...
I have been upgraded at work from Office and Windows 2000 to XP. I'm
having difficulty getting my macros to function. One errors on LEFT in

wb1.SaveAs Left(wb1.Name, Len(wb1.Name) - 4) & "1.xls", _
xlWorkbookNormal

I referenced the Excel 10 library, as well as Word 10 and VBA and
others,
but I can't get it to work! Can someone please tell me what new
references
I
need to set to make things work again?

Ed