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