Denis

Sub NameWS()
'name sheets from data list in A1:A10 on first sheet
For i = 2 To 10
Sheets(i).Name = Sheets(1).Cells(i, 1).Value
Next
End Sub


Gord Dibben Excel MVP

On Tue, 13 Sep 2005 06:35:06 -0700, "Denis"
wrote:

I am wanting to automatically name a range of worksheets based on the values
contained in a range of cells located in another worksheet in the same
workbook.

Can this be done and how would I go about it