Code no longer works in Excel2003

[XB9R]

I got following code :

origpad = ThisWorkbook.Path
Workbooks.Open (origpad & "\Myfile2.xls")
[COLOR=red]With Workbooks("Myfile2").Sheets("Data")[/color]
' just doing my stuff here in the Myfile2 workbook
...
End With
Workbooks("Myfile2").Save
Workbooks("Myfile2").Close

Works great in Excel97 but gives error 9 in excel2003 on the red line. All workbooks and sheets exists. (it does open the workbook)

any ideas ?

Dave

 

[JustinEzequiel]

tried the following

before saving:
?thisworkbook.Name
Book1

after saving:
?thisworkbook.Name
Book1.xls

try
With Workbooks("Myfile2.xls").Sheets("Data")

 

[PHV]

A safer way is to use an object:
Dim objWB As Workbook
Set objWB = Workbooks.Open(origpad & "\Myfile2.xls")
With objWB.Sheets("Data")
' just doing my stuff here in the Myfile2 workbook
...
End With
objWB.Save
objWB.Close
Set objWB = Nothing

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[XB9R]

Thx PHV

that works great

Dave