Worksheet tab names

[Jed]

Is there an automatic way to rename worksheet tabs as per cell content.
For example in cell C2, if there is name Smith i would like to rename the
worksheet as Smith.

Thanks in advance.
Regards
Jed

 

[WillR]

Code
-------------------
Sub renamer()
ActiveSheet.Name = Range("C2").Value
End Su
-------------------


Hope this helps,

Wil

 

[Max]

Try the macro below (paste in general module)
on a *back-up* copy of your file:

It loops through all worksheets (assumed identical structure)
and renames each sheet with what's in C2 [of each sheet], all at one go.

(It's assumed C2 will hold for example, text - different for each sheet,
and with no illegal characters, etc)

Sub RenameWS()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.Name = Range("C2").Value
Next
End Sub

 

[Jed]

Thanks Max,
That's what i was looking for. Your response is much appreciated.

Regards
Jed

Try the macro below (paste in general module)
on a *back-up* copy of your file:

It loops through all worksheets (assumed identical structure)
and renames each sheet with what's in C2 [of each sheet], all at one go.

(It's assumed C2 will hold for example, text - different for each sheet,
and with no illegal characters, etc)

Sub RenameWS()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ws.Name = Range("C2").Value
Next
End Sub

--
hth
Max
-----------------------------------------
Please reply in thread

Use xdemechanik <at>yahoo<dot>com for email
-------------------------------------------------------

Is there an automatic way to rename worksheet tabs as per cell content.
For example in cell C2, if there is name Smith i would like to rename the
worksheet as Smith.

Thanks in advance.
Regards
Jed

 

[Max]

you're welcome Jed!
Thanks for feedback

cheers
Max