Hi there,

This would work...

Sub ChangeSheetNames()
Dim lSht As Long
For lSht = 1 To Worksheets.Count
Worksheets(lSht).Name = Worksheets(1).Cells(lSht, 1).Value
Next lSht
End Sub

Sheet names will need to be in cells A1:A20 on the first sheet of the
workbook, and sheets will be renamed in the order they appear in the sheet
tabs.

Ken Puls
www.officearticles.com


"Darren" wrote in message
...
Is there a way to change the 20 worksheets tab names to reflect what is in
the cells in Sheet1, cells A1:A20?