Perhaps you'd also like to try this recent post by Jason Morin ..
---------
Assuming your target cell for the sheet name is B1, right-click on the
worksheet tab, select View Code, and paste in the following:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.[B1], Target) Is Nothing Then
On Error GoTo InvalidName
Me.Name = Target.Value
Exit Sub
End If
InvalidName:
MsgBox "Invalid sheet name."
End Sub

---
Press ALT+Q to close the VBE.
---
Back in Excel, test it out by inputting the desired sheetname, say: Sheila
into cell B1. When you press ENTER, the sheetname will change to: Sheila

Here's a sample file with the implemented code :
http://flypicture.com/p.cfm?id=48813
(Right-click on the link: "Download File" at the top in the page, just above
the ads)
File: Sheila_wksht.xls

--
Rgds
Max
xl 97
---
GMT+8, 1° 22' N 103° 45' E
xdemechanik <atyahoo<dotcom
----