Tricolor do ARRUDA

Gostaria que minha macro "lesse" os nomes dos arquivos (todos, independentes se são planilhas, musicas, etc) da pasta C:\temp\musica e os relacionasse na col A da plan ativa Eis uma macro que faz que está perto do que quero Sub renomear() Dim fsoObj As New FileSystemObject Dim fsoFolder As Folder Dim fsoFile As File Dim strFile As String Dim found As Boolean Dim rng As Range Set fsoFolder = fsoObj.GetFolder("C:\Temp\Musica\") For Each fsoFile In fsoFolder.Files strFile = Left(fsoFile.Name, Len(fsoFile.Name) - 4) On Error Resume Next found = Sheet1.Range("A1:A1000").Find(What:=strFile, _ After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate If found Then Set rng = Selection strFile = rng.Offset(0, 1).Value fsoObj.MoveFile fsoFile.Path, "C:\Temp\Musica\" & strFile & Right(fsoFile.Name, 4) End If Next Set fsoFolder = Nothing Set fsoObj = Nothing End Sub ME ORIENTARAM A ADAPTAR O CODIGO ABAIXO NESSA MACRO, PORÉM NÃO SEI ONDE ENTRA É só adaptar o código acima no loop. O loop já está pronto: For Each fsoFile In fsoFolder.Files ActiveSheet.Cells(nLin,1) = fsoFile.Name nLin = nLin + 1Next ALGUÉM PODE AJUDAR, OBRIGADO!