Bom dia galera,
Gostaria de saber como altero as ultimas linhas desse código, que classifica os arquivos de um pasta por data de modificação e imprimi.
O problema é que não consegui imprimir esses dados no excel.
Alguma sugestão?

Sub OpenInOrder(strFolderPath As String)
    ' Lists files in descending order of date modified
    ' Can alter DateLastModified to DateCreated if so desired
    ' Call using syntax like: OpenInOrder("C:Test folder")
    
    Dim colFiles As Collection
    Dim fso As Object, fdr As Object, filTemp As Object
    Dim lngIndex As Long, lngInsert As Long
    Set colFiles = New Collection
    Set fso = CreateObject("Scripting.Filesystemobject")
    Set fdr = fso.GetFolder(strFolderPath)
    Dim n As Long
      
    For Each filTemp In fdr.Files
        If colFiles.Count = 0 Then
            colFiles.Add filTemp, filTemp.Name
        Else
            lngInsert = 0
            For lngIndex = 1 To colFiles.Count
                If filTemp.DateLastModified >= colFiles(lngIndex).DateLastModified Then
                    lngInsert = lngIndex
                    Exit For
                End If
            Next lngIndex
            If lngInsert = 0 Then
                colFiles.Add filTemp, filTemp.Name
            Else
                colFiles.Add filTemp, filTemp.Name, lngInsert
            End If
        End If
    Next filTemp
    
'    A alteração seria aqui, jogar essas informações para o excel.
    'For lngIndex = 1 To colFiles.Count
    '   MsgBox (colFiles(lngIndex).Name)
    '   n = n + 1
   ' Next lngIndex
End Sub