How can I get the name of a worksheet in a cell of that worksheet?

Thank you

one way:

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

Note: The file needs to be saved for this to work.

In article ,
"worksheetname in a cell"
wrote:

How can I get the name of a worksheet in a cell of that worksheet?

Thank you

Sub ShowName()
Range("A1") = ActiveSheet.Name
End Sub

Regards,

Tommy Flynn


"J.E. McGimpsey" wrote in message
...
one way:

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

Note: The file needs to be saved for this to work.

In article ,
"worksheetname in a cell"
wrote:

How can I get the name of a worksheet in a cell of that worksheet?

Thank you