Making the cell respond to changes in selection would require an event macro.
If you just want to put the sheet name in a cell, then :
Function funny() As String
funny = Range("A1").Worksheet.Name
End Function
will put the name of the sheet in a cell in that sheet.

Signature
Gary's Student
> Is there a way to put the active worksheet's name in the cell? Not the
> file name of the whole workbook, just the name of the currently
> selected sheet.
>
> Thanks for your help.