Function or formula to show currently active workbook name in cell

[Wes_A]

Hi all. Excel 2007 / XP Pro.
Is there a function or formula that will display the currently active
workbook name (without the path or filename extention) in a cell on the
currently open sheet in that workbook? There will be other open workbooks.
Appologies if this is a stupid question.

 

[ozgrid.com]

One way
=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1)


Or see: http://www.ozgrid.com/VBA/WorkbookPath.htm