VBA Hente filnavne af typen dxf fra samme mappe som regnearket

Jeg har denne code som virker fint når jeg skriver stien den skal hente filerne.
jeg vil gerne have den til automatisk at hente fra samme mappe som regnearket ligger i.
og så vil jeg have at den kun henter dxf filnavne.

Public Sub ListAllFilesFromFolder()
    Dim objFS As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim i As Long
 
    Set objFS = CreateObject("Scripting.Filesystemobject")
    Set objFolder = objFS.GetFolder("D:\tegninger\Til Ole 19-11-19")
 
    i = 2
 
    For Each objFile In objFolder.Files
        ActiveSheet.Cells(i, 1) = objFile.name
        i = i + 1
    Next objFile
 
    Set objFS = Nothing
    Set objFolder = Nothing
End Sub