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)

In article ,
Marshall wrote:

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.