Tab Names-Is there a way to change the 20 worksheets tab names

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

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" <Darren@discussions.microsoft.com> wrote in message
news:5A0E8FF7-B0B8-448C-B8E1-11796093FA48@microsoft.com...
> Is there a way to change the 20 worksheets tab names to reflect what is in
> the cells in Sheet1, cells A1:A20?