You realize that Rob B. made the PT wizard for Microsoft?

Using the PivotCache and defining the version, you’d get the classic layout instead of the “dumbed down” version of it. Something like this:

Sub CreatePivotTable()
Dim pcNew As PivotCache
Dim ptNew As PivotTable
Dim rData As Range

Const sPTNAME As String = “PT”

On Error GoTo Err_Handler
If TypeName(Selection) = “Range” Then
Set rData = Selection.CurrentRegion

Set pcNew = ThisWorkbook.PivotCaches.Add(xlDatabase, rData)
Set ptNew = pcNew.CreatePivotTable(TableDestination:=”", _
tablename:=sPTNAME & ThisWorkbook.PivotCaches.Count + 1, _
defaultversion:=xlPivotTableVersion10)
End If
Exit Sub
Err_Handler:
MsgBox Err.Description, vbCritical, Err.Number
End Sub

* from an Excel range
* that I’ve already selected
* and I want it on a new sheet
…”

That’s the problem. There are two different scenarios for my PTs and neither matches yours.

1) Select a cell in the source range, put the PT on the same worksheet.

2) Put the PT on the current worksheet, the source is another sheet, more often than not in another workbook.

Also, FWIW, in 2007, there’s a single dialog box. No wizard.

Sub PivotCreate()
‘ Creates it as the same worksheet template
‘ Renames it as the current sheet, adding -pt
‘ Turns off autoformat
‘ Puts the default field orientation as columns, not rows

MaxX = Selection.Columns.Count
MaxY = Selection.Rows.Count
Test = MaxX + MaxY

If (Test 28) Then
NewSheet = Left(CurrentSheet, 28) & “-pt”
Else
NewSheet = CurrentSheet & “-pt”
End If

Test = True
Do While (Test = True)
Test = DoesWorkSheetExist(NewSheet)
‘MsgBox NewSheet & ” exists? ” & Test & Len(NewSheet)

If (Test = True) Then
If (Len(NewSheet) > 28) Then
NewSheet = Left(NewSheet, 28) & “-pt”
Else
NewSheet = NewSheet & “-pt”
End If
If (Len(NewSheet) = 31) Then
MsgBox “Ran out of space for the sheet name! Stopping Macro.”
Exit Sub
End If
End If
Loop

Sheets.Add Type:=”Worksheet”
ActiveSheet.Name = NewSheet
ActiveSheet.Move After:=Sheets(CurrentSheet)

ActiveWorkbook.PivotCaches.Add( _
SourceType:=xlDatabase, _
SourceData:=InputRange).CreatePivotTable _
TableDestination:=ActiveSheet.Range(“B5?), _
DefaultVersion:=xlPivotTableVersion10

Range(“B5?).Select

ActiveSheet.PivotTables(1).HasAutoFormat = False
ActiveSheet.PivotTables(1).NullString = “0?

ActiveSheet.PivotTables(1).AddDataField ActiveSheet.PivotTables(1).PivotFields(1), “Sum of A”, xlSum
ActiveSheet.PivotTables(1).AddDataField ActiveSheet.PivotTables(1).PivotFields(2), “Sum of B”, xlSum

ActiveSheet.PivotTables(1).DataPivotField.Orientation = xlColumnField
ActiveSheet.PivotTables(1).DataPivotField.Position = 1
ActiveSheet.PivotTables(1).DataPivotField.Orientation = xlHidden

End Sub