Hey Guys

I have a pivot table and it has 1 page field
called "Supervisor". There may be 5 or 20 or any number
of values in this pagefield. I would like to be able to
have code select each item available in that particular
page field and run the following code after it makes each
new selection:

Dim RngCounter As Long

RngCounter = Application.WorksheetFunction.CountA
(Worksheets("Wkly Renewals").Range("D:D"))
With CreateObject("Wscript.Shell")
.Popup "The name of the active printer is " &
Application.ActivePrinter _
, 1, "Print Confirmation", 64
End With
Worksheets("Wkly Renewals").Range("D7:F" & RngCounter +
2).PrintOut


Is this possible to have it loop through and do this?


Thank you
Todd Huttenstine