export from 1 workbook to new work book

Hi All

Having so problems with the following vba code

I need to copy hidden work sheets not all to a new work book and name the new work book as well

I get a Run time 1004 Cannot rename a sheet to the same name as another sheet
the code line in debug are ActiveSheet.Name = x(i)

With .Sheets(x(i))
any help Please and Thanks

Please Login or Register  to view this content.

If you debug your code and place a breakpoint at the line "With .Sheets(x(i))" and look at the value of "i" does it increment?
And what is X you have it declared at the top, but the "As xxxxx " is missing in the code you posted.

Stepping thru the code would help to ensure your variables are being populated with valid values..