I use the sheet  name in a worksheet cell by adapting a function I found in one
of the internet groups.

Public Function SheetName() As String

' returns sheetname without specifying range
' could use either parent or worksheet in second line

Application.Volatile True
SheetName = Application.Caller.Parent.Name

End Function

You then just use =SheetName() in the cell where you want the sheetname to
appear.