Macro to Delete All Sheets Except One

Hi

I have a workbook with about 27 sheets can someone help me with part of a script that would select all sheets grab the data from ranges A1:E1 and paste it to another sheet called (data) in order from 1 to 27 then delete all the sheets except the (data) sheet ?

Thank You

Yes,
All the sheets are perfect copies of each other except the top line (A1:E1) This line totals all the data per page. I'm just looking to move the top line From all in this case (27) sheets to another sheet called (data) ranges (A3:E3) and delete all the other 27 sheets.

Thank You ...

Hi,
Try this

Please Login or Register  to view this content.

Tony

Thanks Tony,

I am getting a subscript out of range error. I'm not sure what to do. Here is what I am working with so far.

Thanks for your help...

Mike

Please Login or Register  to view this content.

Hi,
You're missing the following statement on my original posting.

Please Login or Register  to view this content.

Tony

Tony...Thank You Very Much,

Figues I missed a line of code. Haste makes waste

I was able to modify your script and correct the issue while I was waiting for your reply. Everything is working like a charm However thank you very much for your Work.

Many Many Thanks.

Here is my Final Code if anyone would use it for anything .

Please Login or Register  to view this content.