You can write a one-line Visual Basic macro.
I called mine "SheetName".
Try this:
Function SheetName() As String
SheetName = Range("A1").Parent.Name
End Function

-----Original Message-----
How can I enter the worksheet name in a cell on the
worksheet without haveing
to type it in?
.