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