How to check whether a pivot table exists before deleting it

[Marcus131975]

Hi

I am using the following to delete a pivot table in the active sheet (before recreating it later) but want to skip this function if no pivot table exists, which is possible in some scenarios. I assume I can use some kind of If/Else statement to achieve this, but havent managed to get the Syntax right.

ActiveSheet.PivotTables("PivotTable1").TableRange2.Clear

The worksheet will only ever have one PVT if that is any help?

Any help would be appreciated - thank you
Marcus

 

[Marcus131975]

Ah, don't worry I think I have figured it out using a Count>0 function

 

[Peter_SSs]

Another way

On Error Resume Next
ActiveSheet.PivotTables("PivotTable1").TableRange2.Clear
On Error GoTo 0