Tom Ogilvy wrote:

for each pvtItm in
ActiveSheet.PivotTables("PivotTable3").PivotField s("Date").PivotItems
pvtItm.Visible = False
for a = 1 to intCountRows2
strField = Sheet1.Cells(a, 7).Value
If pvtItm.Value = strField Then
pvtItm.Visible = True
exit for
Next
Next PvtItm

Hi all,

[quoted text clipped - 47 lines]



Thank you very much!!!

--
Message posted via http://www.officekb.com