Worksheet Tab Name As a Cell Value

[brucer7]

Is there a formula for getting the worksheet tab name as a cell value ??? Or would a macro be the only way ???

Thanks for the help !!!

Alleleuia,
Bruce Radic

 

[RET79]

Best I can come up with here is to type in something like

Range("A1") = activesheet.name

in the immediate window.

Hope this helps

RET79

 

[brettvba]

or
Sub cellval()
Range("a1").Value = ActiveSheet.Name
End Sub
will do it
I couldn't get the first example above to work?
This message was edited by brettvba on 2002-04-21 17:35

 

[Jay Petrulis]

Hi,

Standard way using a cell formula
=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1),1))

The workbook must have been saved for this approach to work.

Alternatively, you can write simple UDF:
-----------------------
Function NameSheet()
NameSheet = Application.Caller.Parent.Name
End Function
------------------------

Called as =NameSheet()

Bye,
Jay
This message was edited by Jay Petrulis on 2002-04-21 18:27