Would anyone have a macro that loops through all sheets
within any one workbook and generates sequential page
numbers? Thanks in advance for your help!

If you group the sheets and print them, then the pages will be sequentially
numbered.

--
Regards,
Tom Ogilvy


"jfm" wrote in message
...
Would anyone have a macro that loops through all sheets
within any one workbook and generates sequential page
numbers? Thanks in advance for your help!

Have you downloaded the report manager? I have found this is great
for multiple ranges on multiple sheets and it's set up as a "report"
and one or two clicks and it prints.

http://support.microsoft.com/default...b;EN-US;214258

"jfm" wrote in message ...
Would anyone have a macro that loops through all sheets
within any one workbook and generates sequential page
numbers? Thanks in advance for your help!

Hi jfm,

Would anyone have a macro that loops through all sheets
within any one workbook and generates sequential page
numbers? Thanks in advance for your help!

The code below was posted by 'Dave' hope this helps....

Sub ReNameSheets()

Dim x As Integer

For x = 1 To 10
ActiveWorkbook.Sheets(x).Name = "result1" & Format(x, "00")
Next x

End Sub

seeya ste