think this is it
any file in the column a path and sub folder in column B look for any file latest saved data 
Option Explicit
Sub My_Newest_Files()
    Dim objFSO As Object
    Dim objFile As Object
    Dim mfile  As String
    Dim rngFolder As Range
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    For Each rngFolder In Range("A2", Cells(Rows.Count, "A").End(xlUp))
        If Right(rngFolder.Value, 1) <> "\" Then rngFolder.Value = rngFolder.Value & "\"
        If Right(rngFolder.Offset(0, 1).Value, 1) <> "\" Then rngFolder.Offset(0, 1).Value = rngFolder.Value & "\"
        If objFSO.FolderExists(rngFolder.Value & rngFolder.Offset(0, 1).Value) Then
            mfile = Dir(rngFolder & rngFolder.Offset(, 1).Value & "*.*")
            If mfile = "" Then
                rngFolder.Offset(0, 2).Value = "No File Found"
            End If
            Do While mfile <> ""
                mfile = Dir
                If objFSO.FileExists(rngFolder & rngFolder.Offset(, 1).Value & mfile) Then
                    Set objFile = objFSO.GetFile(rngFolder & rngFolder.Offset(, 1).Value & mfile)
                    If objFile.DateLastModified > rngFolder.Offset(0, 2).Value Then
                        rngFolder.Offset(0, 3).Value = objFile.DateLastModified
                        rngFolder.Offset(0, 2).Value = mfile
                    End If
                End If
            Loop
        Else: rngFolder.Offset(0, 2).Value = "Folder does not exist"
        End If
    Next
    Set objFSO = Nothing
   Set objFile = Nothing
End Sub