Hi Mark,

Not the best looking code in the world... but have you even tried it in
2007?? I'm failing to see what the problem is. Code from 2003 will almost
predominatly run in 2007 as well.

--
Regards,
Zack Barresse, aka firefytr
MsgBox "fire" & "fytr" & Chr(64) & "vba" & "express" & Chr(46) & "com"




"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?