Tab name in a cell
 

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

Tab name in a cell
 

Bob,

In a formula, use

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

As a VBA Function, use

Function SheetName() As String
SheetName = Application.Caller.Parent.Name
End Function


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com




"Bob Berglund" wrote in message
...
How can I get a sheet's Tab Name into a Cell?
Thanks for your help.
Bob

Tab name in a cell
 

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

Tab name in a cell
 

See Chip Pearson's page:

http://www.cpearson.com/excel/excelF.htm

go to the bottom of the page.

--
Regards,
Tom Ogilvy


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