This macro will go thru each worksheet and set its name equal to the value in
cell A1 in that sheet:

Sub namesheet()
For Each ws In Worksheets
ws.Activate
ActiveSheet.Name = Range("A1").Value
Next
End Sub

just make sure the names are both valid & unique
--
Gary''s Student - gsnu200747


"Tom" wrote:

Hopefully an easy one, but I can't seem to do it.

How can I name my sheets with in a workbook to pick up a cell, i.e sheet 1
is call the same as cell A1.

Thanks