Excel 2007 : Excel 2007 VBA to Clear Filters on Pivot Tables

I am trying to write code to clear any filters in pivot tables if they exist and running into a brick wall. I had been using the following code but its not working Any suggestions?

Sheet1.Select
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

Thanks for your help.

Hi

Try something like

Sub ClearFilters()
    Dim pt As PivotTable
    Dim pf As PivotField
    Set pt = ActiveSheet.PivotTables(1)
    On Error Resume Next
    For Each pf In pt.VisibleFields
        pf.ClearManualFilter
    Next pf
    On Error GoTo 0
End Sub

@ckklconner, welcome to the board, however, please be sure when posting VBA to use CODE tags at all times (per Forum Rules).
Given this was your first post I have on this occasion modified for you.

Regards your question - for XL2007+ see: ClearAllFilters in VBE Help.