Want to auto name worksheets

[doc]

I work with a large spreadsheet that has several worksheets in it. Is
it possible to create a macro that can copy the contents of a cell and
then paste that as the new name for the worksheet?

Reply to (e-mail address removed)

Thanks

 

[Paul B]

Doc, this will do what you want,

Sub Name_Sheet()
ActiveSheet.Name = [A1]
End Sub

--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **

 

[pfsardella]

Sub ReNameSheet()
Activesheet.Name=Range("A1").Value
End Sub

HTH
Paul