convert multiple excel spreadsheets to csv

[His Nibbs]

Try something like this (untested):

For Each objWorksheet In objExcelBook.Worksheets
  objWorksheet.Copy
  objExcel.ActiveWorkbook.SaveAs "theFileName.csv", 23
  objExcel.ActiveWorkbook.Close False
Next

Change "theFileName.csv" to the required file name, maybe including the sheet name.