Listar arquivos do mesmo diretório vba

[dafmg]

Bom dia, por favor podem me ajudar? Preciso de um código de VBA para listar os arquivos .xslx numa planilha especifica da mesma pasta em que o arquivo está salvo, procurei muito mas só encontro códigos onde lista os arquivos de um diretório pré-determinado, não onde a planilha está salva....

[Basole]

Segue exemplo.

Cole a função em um modulo padrão.

Em seguida execute a macro Teste

Os dados serão inseridos na coluna A

 

	Public Function Lista_Arquivos(ByVal sPath As String, Optional ByVal sFilter As String)
	    Dim Arq As String
	    If Right(sPath, 1) <> "\" Then
        sPath = sPath & "\"
    End If
	    If sFilter = "" Then
        sFilter = "*.*"
    End If
    
    Arq = Dir(sPath & sFilter)
      
      Do Until Arq = ""
       With ActiveSheet
        
        .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Offset(1).Row).Value = Arq
        Arq = Dir
     
     End With
    
    Loop
	End Function
	 
	Sub Teste()
Lista_Arquivos ThisWorkbook.Path, "*.xlsx"
End Sub
	

[dafmg]

Cara, deu certo aqui @Basole, muito obrigado!