Hi guys.

I´m having trouble with the following:

I need that the sheetename (tabname) can be updated
(renamed) via the content of a cell (a1). If the valeu of
the cell changes the name changes. It would be great if
it was automatic, if not i could create a macro to update
whenever the user wanted.

Thanks a lot!!!!

SpeeD

A subroutine like this would do the renaming:

Sub NameSheets()
Dim someSheet As Worksheet
For Each someSheet In ThisWorkbook.Sheets
someSheet.Name = someSheet.Cells(1, 1).Value
Next someSheet
End Sub

You could have a second subroutine fired by a sheet change or some other
event and have it call the sub above if that is what you want for
automation.

Steve


"SpeeD" wrote in message
...
Hi guys.

I´m having trouble with the following:

I need that the sheetename (tabname) can be updated
(renamed) via the content of a cell (a1). If the valeu of
the cell changes the name changes. It would be great if
it was automatic, if not i could create a macro to update
whenever the user wanted.

Thanks a lot!!!!

SpeeD

Great code!!! it does exacly want i want to do!!!

Thanks a LOT Gord!! :-)


SpeeD



-----Original Message-----
SpeeD

This code placed in a Worksheet Module will
automatically change the tab name
when A1 is altered.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(False, False) = "A1" Then
On Error Resume Next
Me.Name = Target.Value
On Error GoTo 0
If Me.Name < Target.Value Then _
MsgBox Target.Value & _
" is not a valid sheet name or is a
Duplicate "
End If
End Sub

Gord Dibben Excel MVP - XL97 SR2 & XL2002

On Wed, 30 Jul 2003 17:21:28 -0700, "SpeeD"

wrote:

Hi guys.

I´m having trouble with the following:

I need that the sheetename (tabname) can be updated
(renamed) via the content of a cell (a1). If the valeu
of
the cell changes the name changes. It would be great if
it was automatic, if not i could create a macro to
update
whenever the user wanted.

Thanks a lot!!!!

SpeeD

.