Я хочу создать новую книгу и скопировать вкладку из моей существующей книги в новую книгу.
Приведенный ниже код создает книгу, но вкладка не копируется, есть идеи, почему?
Sub test()
Dim wkb0 As Workbook
Set wkb0 = ActiveWorkbook
Dim wbk As Workbook
Set wbk = Workbooks.Add
'Sheet to be copied is hidden
wbk0.Sheets("Blank_SWGR_Template").Visible = True
wbk0.Worksheets("Blank_SWGR_Template").Copy wbk.Sheets("Sheet1")
wbk0.Sheets("Blank_SWGR_Template").Visible = False
End Sub