select all sheets baring one sheet

[batchjb69]

Hi I have a workbook that contains around 50 worksheets I want to select all of them baring one sheet "INPUT" and copy them to a new sheet. My code is below but it does not work I think this is because their are hidden sheets that I dont want to copy as well.

Please Login or Register  to view this content.

How can the above code be edited?

[JOHN H. DAVIS]

Please use code tags when posting.

Maybe:

Please Login or Register  to view this content.

[batchjb69]

cheers

I need all the selected sheets to be copied to a new workbook. Do you know how I would do this.

JB

[JOHN H. DAVIS]

Do you want the new workbook created by the macro or do you already have one?

[batchjb69]

Created by the macro

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[Norie]

Perhaps.

Please Login or Register  to view this content.

[batchjb69]

data sheet.xlsm

Hi
I've tried your solution but the sheets don't copy across.

Any ideas please see attached.

JB

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[batchjb69]

thanks for your help

[JOHN H. DAVIS]

You're welcome. Hope it helped.