right click sheet tabview codeinsert thisSAVE
When you change cell a1 the sheet name will change.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$A$1" Then Exit Sub
ActiveSheet.Name = Target
End Sub

--
Don Guillett
SalesAid Software

"azbob" wrote in message
...
How can I give a variable name to a worksheet tab based on a cell in the
worksheet?