
Dim Nsheet1 as string
Nsheet1= pippo_var
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Nome_sheet & "!R1C1:R" & numrow & "C" & numcol, Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:=Nsheet1 & "'!R1C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion15
|
