Delete all pivot tables on a sheet

[puff]

I make a copy of a sheet containing a number of pivot tables and then
try to delete the existing pivot tables on the new sheet with:

Sub PivotTableClearActiveSheet()
Dim p As PivotTable

With ActiveSheet
For Each p In .PivotTables
p.TableRange2.Delete
Next p
End With
End Sub

I get the following message:

Run-time error '1004':
You cannot change , move a part of, or insert cells ...

Any clues as to what I'm doing wrong.

 

[puff]

Should have been

p.TableRange2.Delete xlShiftUp