More to what I wanted (before gobs of errors cropped up with the additional
items I inserted):

If ShowMeAll Then
With WSheet.PivotTables(iIndex).PivotCache
Debug.Print "BackgroundQuery=" & .BackgroundQuery & "; " _
& "EnableRefresh= " & .EnableRefresh
End With
End If

Thanks for the help! I'm well on my way :-)
Toby


"Bryan Dickerson" wrote in message
...
It should be:

If ShowMeAll Then
With WSheet.PivotTables(iIndex).PivotCache
Debug.Print "BackgroundQuery=" & .BackgroundQuery & "; "
Debug.Print "EnableRefresh= " & .EnableRefresh
End With
End If