Hi Mark

See
http://www.rondebruin.nl/saveas.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Mark J" wrote in message ...
I have the following code;

Sheets(Array("Moscad", "Opto")).Select

Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


Sheets(Array("Moscad", "Opto")).Copy
Set NewWb = ActiveWorkbook


WBname = " " & Format(Now() - 1, "ddmmyyyy") & ".xls"
NewWb.SaveAs "C:/" & WBname

it worked in excel 2003, but i have converted up to excel 2007, i am trying
to save a copy of the active workbook as a excel 2003 file. any ideas on how
to adjust the code?