Copy Sheet to new workbook

[rhombus4]

If I want to copy Sheet1 to new workbook, I can use:-

Sheets("Sheet1").Copy
With ActiveSheet.UsedRange.Value = .UsedRange.Value

End With
End Sub

However If I want to use the same Macro and copy it to Sheets 1-10, how do I change it so that when I go to sheet2 and run the macro It will copy sheet2 and go to sheet3 copy sheet3 and so on.

 

[venkat1926]

instead of

Sheets("Sheet1").Copy

use activesheet.copy

 

[rhombus4]

instead of

Sheets("Sheet1").Copy

use activesheet.copy

DOhhhhhhhhhhhhh!!!!!!!!!!!

Thanks venkat