TAB name

[Laura]

How put tab Name in a cell ?

 

[JE McGimpsey]

One way:

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

or this UDF:

Public Function SheetName(Optional ByVal rng As Range) As String
Application.Volatile
If rng Is Nothing Then Set rng = Application.Caller
SheetName = rng.Parent.Name
End Function

 

[Peo Sjoblom]

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,32)