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

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

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

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