Macro Code ... Next Sheet

[Ken]

I have many many files where I want to change the name of
the Tab Sheets from whatever they are now to a new
name ... simply "Page 1", "Page 2", "Page 3" etc ... I
would like to do this with a Macro ... but need code ...

Select 1st sheet regardless of name ... rename to "Page 1"
Select 2nd sheet regardless of name ... rename to "Page 2"
Select 3rd sheet regardless of name ... rename to "Page 3"

The number of tab sheets vary so I assume Macro will
simply abend when it reaches the end ... Unless of course
you highly respected Wizards on this board have other
Magic to perform.

Thanks ... Kha

 

[Bob Phillips]

Ken,

For i = 1 To Worksheets.Count
Worksheets(i).Name = "Page " & i
Next

No abends.

 

[Jean-Paul Viel]

Hi,



Use this macro :



Sub NewShName()

Dim sh As Worksheet

Dim intN As Integer

For Each sh In Worksheets

intN = intN + 1

sh.Name = "page " & intN

Next sh

End Sub

 

[Ken]

Works great ... Thanks ... K

-----Original Message-----
Ken,

For i = 1 To Worksheets.Count
Worksheets(i).Name = "Page " & i
Next

No abends.

--

HTH

Bob Phillips




.