just leave the cell (a11) blank this will leave the tab name as is.

"Ken" wrote:

Oversight on my part ... If there are TabSheets that I do not want impacted
by this Macro (mostly likely my master data sheet TabSheet1 & possibly
TabSheet2) ... how do I prevent this?

Thanks ... Kha

"ufo_pilot" wrote:

Just make sure that the Value you need the sheet named resides in either A11,
or edit this macro

Sub SameNameTab()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Name = Sheets(i).Range("a11").Value
Next i
On Error GoTo 0
End Sub


"Ken" wrote:

I thought I saw a similar post a few days back, but I can't seem to locate it
...

Above said ... Is it possible to have a TabSheet Name based on a Cell Value
... ie: If a Part # is in a specific cell can it somehow be used to name the
TabSheet? ... Thanks ... Kha