Automatically open the latest date modified excel file in a folder

Hi excel Peeps! I am trying to use VBA to automatically open an existing excel file in a folder in my documents with the lastest date modified. I seem to be running into a problem with the code below. When the file path is

sPath = ThisWorkbook.Path

it finds the newest file and opens it but I need to specify the file path and when I set the path to

sPath = "C:\Users\LEU70963\Documents\TRACKER JUNK\AT"

I get a "Run-time error '1004': "could not be found. Check the spelling of the file name, and verify that the file location is correct."

Any help would be huge!

Sub OpenLastModifiedFile()
 Dim objFSO As Object, objFolder As Object, objFile As Object
 Dim tmpDate As Date, sFile As String, sPath As String
 
 'sPath = ThisWorkbook.Path

 sPath = "C:\Users\LEU70963\Documents\TRACKER JUNK\AT"
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFolder = objFSO.GetFolder(sPath)
 For Each objFile In objFolder.Files
    If objFSO.GetExtensionName(objFile.Path) = "xls" Then
        If objFile.DateLastModified > tmpDate Then
            tmpDate = objFile.DateLastModified
            sFile = objFile.Path
        End If
    End If
 Next
 Set objFSO = Nothing
 Set objFolder = Nothing
 Set objFile = Nothing
  
 Workbooks.Open sFilef
 
End Sub

Thank you
Alex

Hey Alphafrog, sorry about that, that must just have been an erroneous letter I added while pasting the code. I dont have that in my workbook. I believe the real problem I am having has to do with the code trying to look in a specific file directory, as I dont have any issues when it searches the current workbook path. I have included a workbook with an example of what I am talking about. If you open the "macro latest opener" and click the blue button it should try to open the "New" excel spreadsheet in the attached folder, but if you change the path/directory in the code to a specific path I get the error described above. Let me know if this clear.

Thanks again!

Sub OpenLastModifiedFile()
 Dim objFSO As Object, objFolder As Object, objFile As Object
 Dim tmpDate As Date, sFile As String, sPath As String
 
 'sPath = ThisWorkbook.Path

 sPath = "C:\Users\LEU70963\Documents\TRACKER JUNK\AT"
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFolder = objFSO.GetFolder(sPath)
 For Each objFile In objFolder.Files
    If objFSO.GetExtensionName(objFile.Path) = "xls" Then
        If objFile.DateLastModified > tmpDate Then
            tmpDate = objFile.DateLastModified
            sFile = objFile.Path
        End If
    End If
 Next
 Set objFSO = Nothing
 Set objFolder = Nothing
 Set objFile = Nothing
  
Workbooks.Open sFile
 
End Sub

Open Most Recent xls.zip