将粘贴格式从 sheet1 复制到新的附加工作表

Question

Sub Test()
    Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Worksheets("Sample1")
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub

However, the problem is whenever I change sheet name, the code wouldn't run anymore. So I decide to use the sheet codename which is Fixedtemplate(template)

Sub Test()
    Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Fixedtemplate
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub

There is still

compile error: Method or data member not found

Answer 1

The code works below for me, you will need to provide either the name or the number of the sheet in order to copy the data.

Sub main()
    Call Copydata("Fixedtemplate")
End Sub

Sub Copydata(name As String)
Dim ws1 As Worksheet
    Set ws1 = ThisWorkbook.Sheets(name)
    ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub