Thread: Disable selection in Pivot table

using excel2000 and I would like to show all the salespeople there margins with drill down capability. Do not want them to be able to filter thru other salespersons data. Essentialy I want to disable the selection for salesperson in the pagefield.
This macro just gives me a run-time error.

Sub DisableSelection()
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
  For Each pf In pt.PivotFields
      pf.EnableItemSelection = False
  Next pf
End Sub

If I hide the other salespersons they will simply change the field settings.
thx all.