Filename Function

[Steph]

Function FName()
FName = ActiveWorkbook.Name
End Function

This returns the filename.xls. Can I add a left function to this to remove
the .xls? I can do it within a cell, but not sure how to edit the function
to do it. Thanks!

 

[Norman Jones]

Hi Steph,

Dim fname As String
fname = ActiveWorkbook.Name
fname = Left(fname, Len(fname) - 4)
MsgBox fname

 

[Steph]

Thank you!

Hi Steph,

Dim fname As String
fname = ActiveWorkbook.Name
fname = Left(fname, Len(fname) - 4)
MsgBox fname