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
|