move sheets after specific sheet name

[engmhelmy]

Dear All,

I want to move sheets after sheet name " summary " to a new work book, can any one help in such macro ?

[Norie]

Try this.

Please Login or Register  to view this content.

[engmhelmy]

There is a syntax error in
for I = Sheets("Summary).Index To Sheets.Count

and how this to export it to a new work book ?

[Norie]

That's just a typo and there's a couple of other errors (only just waking up).

Please Login or Register  to view this content.

How does it move the sheets to a new workbook?

It copies them, and since there's no destination specified it copies them to a new workbook.

If you actually want to move them change Copy to Move.

[engmhelmy]

Great
it is working , now , if i want to delete all sheet after summary in the original workbook ? can i use the same code and change it to delete ?

[engmhelmy]

Great
it is working , now , if i want to delete all sheet after summary in the original workbook ? can i use the same code and change it to delete ?