Çözüldü Dosyanın adını hücreye yazma

Arkadaşlar merhaba. netten bulduğum ;

Private Sub Worksheet_Activate()
Sayfa1.Range("B1").Value = ThisWorkbook.Name
End Sub

Koduyla dosyanın adını B1 hücresine yazdırdım. Ancak dosya adını uzantısıyla birlikte İŞ TAKİP ÇİZELGESİ.xlsm şeklinde yazdı. Bu koddan sadece (uzantı olmadan) dosya adını almak için nasıl bir değişiklik yapılabilir? Saygılar.