Adding only workbook name to message box

[ABabeNChrist]

I use this type of message box that will add active workbook name alongside message.

Code: Select all

MsgBox "Your new report named " & ActiveWorkbook.Name & " is ready."

At the present moment next to the workbook name it also put the file extension type.
So it might look something like this
Your new report named John Doe.xlsm is ready
How can I remove the file extension from the end of the name?

[HansV]

Dim strName As String
Dim p As Integer
strName = ActiveWorkbook.Name
p = InStrRev(strName, ".")
strName = Left(strName, p - 1)
MsgBox "Your new report named " & strName & " is ready."

[ABabeNChrist]

Thank You Hans