Sheet number change
 

Sheet number change
I have a multi sheet workbook and need to change the worksheet numbers on
each page. I have tried the following, but it doesn't work.

Any help appreciated!

Sub NewNumber()

nSheet = 2

Do While nSheet <= Sheets.Count

For I = 2 To 3

Sheets(nSheet).Select

Cells.Replace What:="1 '!$C$13", Replacement:="(I) '!$C$13", LookAt:=xlPart,
SearchOrder _

:=xlByRows, MatchCase:=False

nSheet = nSheet + 1

Next I

Loop

End Sub