Bom dia!!

Porque não listar tudo em uma guia qualquer...

Sub AleVBA_18270()
    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object
    Dim ws As Worksheet
     
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set ws = Worksheets.Add
     'Obtem o caminho do diretório
    Set objFolder = objFSO.GetFolder("C:UsersaleVBADownloads") 'Mude para o caminho desejado
    ws.Cells(1, 1).Value = "Os arquivos encontrados em " & objFolder.Name & "são:"
     'Loop pela coleção de objetos
    For Each objFile In objFolder.Files
        ws.Cells(ws.UsedRange.Rows.Count + 1, 1).Value = objFile.Name
    Next
     'Limpa objetos na memória!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
     
End Sub

Boa tarde!!

Com o arquivo de excel aberto, aperte as teclas Alt+F11 para entrar no EditorVB, depois aperte as teclas Alt+I+M, para inserir um módulo, cole o código neste módulo!

Para inserir um botão:
https://support.office.com/pt-br/articl ... f71ff6a4a3
http://pt.wikihow.com/Criar-Bot%C3%B5es ... s-no-Excel
http://juliobattisti.com.br/cursos/exce ... lo5/05.asp

Obs: O arquivo deve ser salvo como macro xlsm
http://blog.npibrasil.com/index.php/com ... -no-excel/

https://support.office.com/pt-br/articl ... ca0065286e

Att