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 ?
Bookmarks