ThisWorkbook.Name without extension name

[HerryMarkowitz]

Hi friends,
I have an excel file named Budget.

After running following macro, there is a "Budget" in the A1 cell.

Sub Macro1()
Range("A1").Value = ThisWorkbook.Name
End Sub

Then I change my folder settings that, yes show file extension name.

After running following macro, there is a "Budget.xlsm" in the A1 cell.

Sub Macro1()
Range("A1").Value = ThisWorkbook.Name
End Sub

I dont want to see Budget.xlsm in the A1 cell.
I want to see Budget in the A1 cell.

Any advice ?
Thanks in advance.

[Olly]

Use

ThisWorkbook.Title

[Izandol]

You may use:

Sub Macro1()
Range("A1").Value = Left$(ThisWorkbook.Name, instrrev(ThisWorkbook.Name, ".") - 1)
End Sub

[HerryMarkowitz]

Code sent by OllyXLS is not working.
Code sent by Izandol is working.
Thank both of you.

[Olly]

Code sent by OllyXLS is not working.

You did replace just the relevant section of your macro, didn't you?

Sub Macro1()
Range("A1").Value = ThisWorkbook.Title
End Sub

As that should work...

[HerryMarkowitz]

Yes I run code and no result...

[Olly]

My apologies - I was wrong.

The workbook I tested it on just happened to have an identical filename and document title... Good old SharePoint.

[Norie]

Olly

Title won't work with a workbook that hasn't been saved and it won't necessarily return the workbook name, you can set the title of a workbook to whatever you want.