Создать сводную таблицу на новом листе и назвать его - VB

Формулировка задачи:

Здравствуйте!
Проблема такая: нужно сделать сводную таблицу на листе и присвоить ему имя, по хорошему сводной таблице нужно тоже присвоить имя.
Исходная таблица находится на Листе 2, называется "Отчёт"
Пишет Invalid procedure call or argument не могу разобраться в чём дело.

Sub Макрос13()

Dim NN As Variant
    NN = InputBox("Enter the Name")
    Sheets("Лист2").Select
    Sheets.Add.Name = NN
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Отчёт", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
        :=NN, TableName:="СводТабл", DefaultVersion:= _
        xlPivotTableVersion14
    Sheets = NN.Select
    Cells(3, 1).Select
End Sub

Решение задачи: «Создать сводную таблицу на новом листе и назвать его»

textual
                            Листинг программы 
                        

                            Sub Макрос13()

Dim NN As Variant
    NN = InputBox("Enter the Name") ' тут у тебя переменная NN становится типа string
    Sheets("Лист2").Select
    Sheets.Add.Name = NN ' так нельзя писать
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Отчёт", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
        :=NN, TableName:="СводТабл", DefaultVersion:= _
        xlPivotTableVersion14 ' Методы Create  и CreatePivotTable возвращают объекты. Имя - это свойство объекта.
    Sheets = NN.Select 'у типа string нету метода Select
    Cells(3, 1).Select
End Sub

                        