Works perfectly here.


"terilad" wrote in message
...
Reason for repost was because programming was not working a short time
ago.

Mark

"Don Guillett" wrote:

Pls do NOT repost. See ans in previous thread. GEEZZZZZZZZZZZ

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"terilad" wrote in message
...
Hi,

How can I write this code to place in the workbook of the file, the
macro
changes the sheet tab name as per the individual sheet cell A1 which
is
changed from the first sheet Index of Stock, I am looking to do this
so it
changes instantly when the name is changed and do not need to
calculate
each
sheet, I have over 100 sheets.

Here is the macro

Private Sub Worksheet_Calculate()
With Me.Range("A1")
If .Value < "" Then
Me.Name = .Value
End If
End With
End Sub

Many thanks

Mark

.