copy sheet from one to new sheet

[pranav.y]

Dim ws1 As Worksheet
Dim ws1 As Worksheet


Set ws1 = ThisWorkbook.Worksheets("sheet 1")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)


Set ws1 = ThisWorkbook.Worksheets("sheet 2")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)

End Sub

it shows error why ?

[AB33]

Please use code tags with your code.

If you want to copy all sheets within a book, you need to loop through each sheet. If it is a single sheet, you need to sheet's name with the copy method

[pranav.y]

can you please give me the code .

[AB33]

Which code?

Please Login or Register  to view this content.