Error when moving sheet

[mihai]

Hi

I have this code for moving a sheet:

Workbooks.Open Filename:=a & "situatie_qsar.xls"
Workbooks.Open Filename:=a & "situatie_qsar_z.xls"
Sheets("situatie_qsar_z").Move
After:=Workbooks("situatie_qsar.xls").Sheets(1)

At the thired line I recive this error:
Run time error 9: Subscript out of range

Why?
The two files are exported from a program in "Microsoft Excel 2.1
Worksheet" format and I'm using Excel 2000.

 

[crispbd]

Subscript out of range in this case probably means that the sheet
'situatie_qsar_z' doesn't exist.

 

[JulieD]

Hi

place the After line on the same line as the .Move command e.g.

Workbooks.Open Filename:=a & "situatie_qsar.xls"
Workbooks.Open Filename:=a & "situatie_qsar_z.xls"
Sheets("situatie_qsar_z").Move
After:=Workbooks("situatie_qsar.xls").Sheets(1)

Cheers
JulieD