Macro to Split Workbook into separate Workbooks

Hi

Thanks for reply. Unfortunately, I get a message saying that "Run-time error 9: Subscript out of Range" - and when i click debug it takes me to the line below:

Sheets(Array("Sheet" & i, "Sheet" & i + 1)).Copy

Any thoughts?

Thanks
John