Because you said that you are trying to create  a function  that returns  the name
of the sheet "in which the function is entered" it is not necessary to create a
Select Case Statement.

Function Sheetname() As String
Sheetname = ActiveSheet.Name
End Function

Should do it for you. Let me know if I misunderstood what you need the function
to be able to do.