Runtime error 438 in Pivot table macro

[DavidBW]

Hello
Could someone please advise why I get a runtime 438 error in the following:

Sub PivotStatus()

Dim pt As PivotTable

Set pt = Worksheets("Status TEST").PivotTables("PivotTable1")
pt.PivotFields("Organisation").ClearAllFilters
pt.PivotFields("Organisation").CurrentPage = Range("Pivot_Org")

End Sub

This is excel 2003

thanks