Listar arquivos de uma pasta

Não me lembro se publiquei anteriormente outra planilha com a mesma função, mas eu precisei novamente e como o prompt do DOS é bloqueado no meu trabalho, escrevi este código.
Quem puder usar o prompt, basta dar um DIR c:\pasta *.* > lista.txt e depois editar o TXT.

;-)

Option Explicit
Dim caminho         As String
Dim arquivo         As String
Dim i               As Integer
 
 
Private Sub cmd_lista_Click()
On Error GoTo erro
 
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = Application.DefaultFilePath & "\"
        .Title = "Selecione a pasta"
        .Show
        If .SelectedItems.Count = 0 Then
            Exit Sub
        Else
            caminho = .SelectedItems(1)
        End If
    End With
 
    Range("A:A").Clear
    Range("A1").Value = "Lista dos arquivos"
   
    arquivo = Dir(caminho & "\*.*")
   
    i = 2
    Do Until arquivo = ""
        Cells(i, 1) = arquivo
        i = i + 1
        arquivo = Dir
    Loop
   
    Worksheets("Plan1").Columns("A:A").AutoFit
   
    Range("A2").Select
    ActiveWindow.FreezePanes = True
   
    Exit Sub
   
erro:
    MsgBox Err.Description, vbOKOnly
    Exit Sub
 
 
End Sub