VBA Создать новую сводную таблицу

Question

Я записал макрос для создания сводной таблицы на основе данных в листе «Данные». Проблема в том, что я не уверен, как создать новый лист для сводной таблицы (Sheets.Add), а затем сразу дать ему имя, так как, если я буду запускать это снова и снова, мне придется постоянно менять «SheetX» на «SheetX». +1 "и т. Д.

Sheets("Data").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Feb Data!R1C1:R3000C150", Version:=6).CreatePivotTable TableDestination:= _
    "Sheet9!R3C1", TableName:="PivotTable1", DefaultVersion:=6
Sheets("Sheet9").Select

Answer 1

Подводя итог:

Option Explicit

Sub test()
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "PivotSheet"
End Sub