Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set wD = Sheets.Add
- ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=wS.UsedRange).CreatePivotTable _
- TableDestination:=wD.Range("A3")
- Set wD = Sheets.Add
- ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=wS.CurrentRegion).CreatePivotTable _
- TableDestination:=wD.Name & "!R3C1"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement