ThisWorkbook.Name without extension name

You may use:

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