Rename every worksheet in a workbook after a cell reference

[Briscoe]

I am needing to have every sheet in my workbook named after a specific cell reference. For instance, I want every sheet in the workbook to be named after the text that is in cell A5 on that worksheet. I need it to go through all of the worksheets in the workbook and perform the same task.

Can anyone help?

 

[SkipVought]

Hi,

for each ws in worksheets
  with ws
    .name = .[A5].value
  end with
next

Skip,
[sub]
[red]Be advised:[/red] When you ignite a firecracker in a bowl of vanilla, chocolate & strawberry ice cream, you get...
Neopolitan Blownapart! [/sub]

 

[Briscoe]

You rock!
Thanks!

 

[PHV]

For Each sh In ActiveWorkbook.Worksheets
sh.Name = sh.Range("A5")
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244