Thread: Saving as 2003-2007 format within Macro

I have set a macro in Excel to save each individual worksheet as a separate file. The problem is that each file is now being saved in the 2007 version where most people that need it are using the 2003 - 2007 version. The source document is in 2003-2007. can anyone advise on how to change this?

The current code being used is

Sub NewBook1()
'
Set wbSource = ActiveWorkbook
 
For Each ws In wbSource.Sheets
ws.Copy
Set wbDest = ActiveWorkbook
wbDest.SaveAs strSavePath & filePrefix & " " & ws.Name & " " & fileSuffix
wbDest.Close
Next
 
Application.ScreenUpdating = True
 
'
End Sub

Originally Posted by Marcol

I assume you mean save as 97-2003 format.

Try this line

wbDest.SaveAs strSavePath & filePrefix & " " & ws.Name & " " & ".xls", FileFormat:=xlExcel8

Hope this helps

Excellent - thanks for the help!!!!