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