Is there a way....

T

TK

A simple macro with the code:


Sub NameTab()
ActiveSheet.Name = Range("A1").Value
End Sub

will do the trick. You could attach this to a key
combination or command button and rename the sheets one at
a time, or if you want to rename all tabs in a workbook
try something like:

Sub NameAllTabs()
Dim sht As Worksheet
For Each sht In Sheets()
sht.Name = sht.Range("A1").Value
Next sht
End Sub


HTH,

Tom
 
Top