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.