You have a cell on each sheet that you want Report 1, 2, 3 etc. incremented
across sheets?

Sub Number_Increment()
Dim myword As String
Dim iCtr As Long
myword = "Report "
For iCtr = 1 To Worksheets.Count
With Worksheets(iCtr).Range("A1")
.Value = myword & iCtr
End With
Next iCtr
End Sub

You want the sheet names to be Report 1, 2, 3 etc?

Sub RenameTabs()
For I = 2 To Sheets.Count
Sheets(I).Name = "Report " & I
Next
End Sub


Gord Dibben MS Excel MVP

On Thu, 24 Sep 2009 07:39:02 -0700, Susan
wrote:

I created a spreadsheet and made 51 more copies of it. The first work sheet
has Report # 1, now i want to change the report number by 1 on each
spreadsheet, Report 2, Report 3, etc.

Is there a simple formula I can use so i dont have to change all 52
spreadsheets individually?