I would use InstrRev, some people (I do :-)) put dots in their filenames

Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)

--
HTH

Bob Phillips

"Rich_z" wrote in
message ...

Left(ActiveWorkbook.Name, Instr(ActiveWorkbook.Name,".")-1) will give
you what you are looking for.


--
Rich_z
------------------------------------------------------------------------
Rich_z's Profile:
http://www.excelforum.com/member.php...o&userid=24737
View this thread: http://www.excelforum.com/showthread...hreadid=386137