-----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