Easy enough
Sub RenameSheetsToA1()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = ws.Cells(1, 1)
Next
End Sub
"rbanks " wrote:
I'm a novice with VBA macros, 1st off.
I'm continually creating workbooks with 100 or more tabs, but need a
quick way to rename each tab.
In each worksheet, I have the name I want on the tab stored in cell
A1.
Can someone tell me how to create a macro that will rename each sheet
to the value in cell A1 of that same sheet?
Thanks
Windows 2000
Excel 2000
---
Message posted from http://www.ExcelForum.com/