Bob

With a macro.....

Sub NameInCell()
ActiveCell.Value = ActiveSheet.Name
''Range("A1").Value = ActiveSheet.Name
End Sub

With a formula...........

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

Note: if using formula, workbook must be saved at least once before getting
results.

Gord Dibben Excel MVP XL2002


On Sun, 7 Sep 2003 13:35:14 -0700, "Bob Berglund"
wrote:

How can I get a sheet's Tab Name into a Cell?
Thanks for your help.
Bob