Method 'SaveAs' failure

[w.goodwater]

I have an .xls with multiple worksheets. I have VB script attempting to save one of the worksheets to a new .xls file. When this is run, I get a "Run-time error '1004': Method 'SaveAs' of object '_Workbook' failed" error. My script outputs data to Sheet1. I can save Sheet1 to the new .xls file without problem. But if I add a new sheet, say, Sheet2, and try to save it to the new file, then I receive the above error. I do not receive this error if I save to a .csv or .txt file. The line that causes the error is as follows:

ActiveWorkbook.SaveAs FileName:=strFilename + ".xls", 
                      FileFormat:=xlExcel4, CreateBackup:=False

Any thoughts would be appreciated.

[w.goodwater]

Further investigation has shown that my problem occurs also when saving as a .csv, which is contrary to my initial post.

Again, any thoughts on this or similiar problems would be appreciated.

[mudraker]

for csv file have you tried

ActiveWorkbook.SaveAs Filename:=strFilename + ".csv", _
   FileFormat:=xlCSV, CreateBackup:=False

[w.goodwater]

That is exactly how it tries to save for .csv.

[mudraker]

I went back & re-read both your messages & I realized I missed an inportant part in the 1st message

You can only have 1 sheet in a book to save the file as a csv file

[w.goodwater]

For all formats, I am taking the data from a single sheet and saving that to a new file. That way I can save to .csv or .xls. Well, I could if not for the SaveAs function failing on me.