Only with VBA code.

Sub AAA()
ActiveSheet.Name = ActiveSheet.Range("A4").Text
End Sub

or you can use an event procedure to automate this. In the code
module for the worksheet in question, use

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$4" Then
Me.Name = Target.Text
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"~Jeff~" wrote in message
...
Is there a way to set the spreadsheet up so that the value in
cell A4
appears as the sheet tab name?

--
~Jeff~
[Microsoft Windows XP Pro,Office 2000]