When i run into this problem I use something like

dim itm as PivotItem
With ActiveSheet.PivotTables("Report").PivotFields("Yea r")
for each itm in .PivotItems
if itm.Value = "2006" then
.CurrentPage = itm.Value
exit for
end if
Next
End With

This is pseudo code and may need some refinement, but the concept of looping
throught he pivot items has been successful for me. It also avoids trying to
assign a value that doesn't exist and can screw up your table.

--
Regards,
Tom Ogilvy





"Des" wrote:


Thanks Tom. Unfortunately same error when run as a single line of code
separately, removing quotes doesn't help either.

Regards.


--
Des
------------------------------------------------------------------------
Des's Profile: http://www.excelforum.com/member.php...o&userid=34154
View this thread: http://www.excelforum.com/showthread...hreadid=542429