M
Mark J
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?
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?