hi,

I am having some difficulty setting pagefields and values -- here is my
code...
         
           strpivotsheet = "Pivot Table"
           str_selection_value1 = "Delivery #"
           str_selection_value2 = "Floor"
           str_selection = "1"
           

           For Each pt In Worksheets(strpivotsheet).PivotTables
               With pt.PivotFields(str_selection_value1)
                   .Orientation = xlPageField
                   .Position = 1
               End With
               With pt.PivotFields(str_selection_value2)
                   .Orientation = xlPageField
                   .Position = 2
               End With
           Next pt
           
           For Each pt In Worksheets(strpivotsheet).PivotTables
               pt.PivotCache.Refresh
               pt.RefreshTable
               For Each pf In pt.PageFields
                   If pf.Name = str_selection_value1 Then
                       For Each pi In pf.PivotItems
                           If pi.Name = str_selection Then
                               pf.CurrentPage = pi.Name
                               Exit For
                           End If
                       Next pi
                   ElseIf pf.Name = str_selection_value2 Then
                       pf.CurrentPage = "(All)"
                   End If
               Next pf
           Next pt

on pf.CurrentPage = pi.name or pf.CurrentPage = "(All)"  I get error 1004
application defined or object define error.

please help me.....