Is this what you want?


With Extension:
=============================
ThisWorkbook.Name


Without Extension
=============================
Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)


--
Rick (MVP - Excel)


"ch" wrote in message
...
Hi Tom,

How can we return a workbook's file name with and without extension?

Thanks in advance.