Is your problem due to the fact that after doing a SaveAs, the
activeworkbook assumes that name. So at the end, the activeworkbook is
Employee.csv?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"dj" wrote in message
...
I have an Excel 2000 workbook with 6 worksheets and 1 code module.
My code is designed to save each of the worksheets as individual CSV
files.

After adding a menu item and linking it to my VBA code, the code works as
expected save for one thing; it is saving/renaming the main Excel workbook
as a CSV file with the same name as the last worksheet name, which is not
desireable.

Thinking the loop version was somehow including the workbook name, I
hardcoded
the worksheet names in my code, but it made no difference.

Here's the code:
' Loop version:
For Each wsTemp In Worksheets
wsTemp.SaveAs Filename:=wsTemp.Name, FileFormat:=xlCSVWindows
Next


' Brute-force version:
Worksheets("Customer").SaveAs Filename:="Customer",
FileFormat:=xlCSVWindows
Worksheets("Worksite").SaveAs Filename:="Worksite",
FileFormat:=xlCSVWindows
Worksheets("Order").SaveAs Filename:="Order", FileFormat:=xlCSVWindows
Worksheets("Assignment").SaveAs Filename:="Assignment",
FileFormat:=xlCSVWindows
Worksheets("Employee").SaveAs Filename:="Employee",
FileFormat:=xlCSVWindows
Worksheets("Invoice Detail").SaveAs Filename:="Invoice Detail",
FileFormat:=xlCSVWindows


Any help is greatly appreciated!

Cheers,
dj