On 9 Dec, 14:31, Fan924 wrote:
Is there an easy way of removing the file extention from the file name?

Hi Fan

Sub StripExt()
Dim str_FileName As String

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

End Sub

Regards

Steve