Move all sheet from active workbook

[Chandresh]

HI ,

I have a workbook in which I have multiple sheets , can anyone help me with a code which will move and copy all the sheet to new excel except "sheet1".

Thanks
Chandresh

 

[My Aswer Is This]

Why not save your current workbook.
Then Delete Sheet1
Then do a SaveAs and give your workbook a new name.

 

[Kamolga]

Hi,

This macro will work if sheet 1 is not active when you launch it,you can add sheet2.select as a first line for exemple

Dim ws as Worksheet
For each sw in Sheets
if ws.name<>sheet1.name Then ws.select (false)
Next
ActiveWindow.selectedSheets.copy