dateiname ohne .xls

Sub DateienAuslesen()
Dim fs, f, f1, fc, i
On Error Resume Next
ActiveSheet.Unprotect
Range("A:A").ClearContents
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\DeinOrdner\")
Set fc = f.Files
i = 0
For Each f1 In fc
i = i + 1
ActiveSheet.Cells(i, 1) = f1.Name
Next
End Sub

jetzt wird jede datei des ordners angezeigt mit der endung ".xls" z.b bei excel dateien.
ich möchte aber nur den reinen dateinamen ohne die endung ".xls". ist das möglich?
grüße
marco