Help Retrieving filename without .xls attached

[Marshall]

I would like to try and retrieve the filename of the current workbook,
without having the ".xls" portion of it attached.

I'm currently retrieving the
ActiveWorkbook.Name
maybe there is a way to parse this or something?


Any help is greatly appreciated. Thanks.

 

[Tom Ogilvy]

left(activeworkbook.name,len(activeworkbook.name)-4)

 

[Dan E]

How about just cutting it down yourself??

Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)

Dan E

 

[J.E. McGimpsey]

one way:

Dim fName As String
Dim nLen As Integer
fName = ActiveWorkbook.Name
nLen = Len(fName) - 3
If Mid(fName, nLen, 1) = "." Then _
fName = Left(fName, nLen - 1)