Possibly:

for i = 1 to sheets.count - 3
set sh = sheets(i)
Next

or something similar.

--
Regards,
Tom Ogilvy

"Lambtwo" wrote in message
news:wYrDg.373601$Mn5.151680@pd7tw3no...
My workbook creates a series of worksheets (for each division) from a
pivot table. In addition, there are 3 data worksheets that follow the
pivot table created worksheets.

I want to run a macro on the pivot worksheets only (not the last 3 data
sheets). Fumbling around with the For Each and trying to exclude the last
3, but can't seem to make this work.

Help please ...