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? |
Tab Names
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? |
All times are GMT +1. The time now is 05:06 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com