Rename worksheet

[Donald Duck]

Hi

I need to create a macro that renames each worksheet to the contents in cell
A1 of each worksheet.

Any suggestions will be welcome.

Thanks

 

[nathan]

-----Original Message-----
Hi

I need to create a macro that renames each worksheet to the contents in cell
A1 of each worksheet.

Any suggestions will be welcome.

Thanks

Try this, i havent tested it myself.
.
For each ws in activeworkbook

ws.name= ws.range("a1")
next ws

 

[Tom Ogilvy]

That should be

Dim ws as Worksheet
For each ws in activeworkbook.worksheets
ws.name= ws.range("a1").value
next ws

 

[Donald Duck]

Perfect!

Works a treat

Thanks.

That should be

Dim ws as Worksheet
For each ws in activeworkbook.worksheets
ws.name= ws.range("a1").value
next ws