This should give you a couple of ideas:

Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
'Whatever operation you want to perform on each sheet, Pivot Table refresh,
or whatever, do it here.
Next sh


For Each ws In ActiveWorkbook.Worksheets
'Same concept as above
Next


Regards,
Ryan---
--
RyGuy


"lab-guy" wrote:


I'm doing a pivot table with multiple ranges, as suggested here in the group.
Works well for 4 sheets, but I'll probably have 40.

Would it be possible to do a 3d formula to catch every sheet in the workbook,
instead of listing each sheet in the pivot wizard ?

Thanks much

Mike