Thanks!

--
AP

"Bob Phillips" a écrit dans le message
de ...
Typo alert.

Dim WS as Worksheet
for each WS in Worksheets
WS.name = WS.Range("AB1").value
next WS

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Ardus Petus" wrote in message
...
Dim WS as Worksheet
for each WS in Worksheets
WS.name = WS.Range("AB1"=.value
next WS


HTH
--
AP

"Patrick Simonds" a écrit dans le message de
...
I thought I had this working but apparently not. I have 100+
worksheets
in
my workbook, I need a macro which when run will rename each worksheet
to
the
worksheets cell AB1 (each worksheet will have its own cell AB1 which
will
contain the text to be used as the worksheets name) and when it is
done
it
must return me to the worksheet which was active when called the
macro.