Segue um modelo de rotina que efetua o que deseja. Originalmente disponibilizado em http://www.rondebruin.nl/folder.htm

Private Sub Move_Files_In_Folder()

Dim FSO As Object
Dim FromPath As String, ToPath As String, FileExt As String
Dim linha As Integer

For linha = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    FileExt = Cells(linha, 3).Value2
    FromPath = FileExt
    ToPath = "D:Temp"

    Set FSO = CreateObject("scripting.filesystemobject")

fnames = Dir(FromPath)
    
    FSO.GetFile FromPath
    FSO.MoveFile Source:=FromPath, Destination:=ToPath & fnames
Next
End Sub

Olá Reinaldo, obrigado pela contribuição.

Nao entendo de VBA/Macro, por gentileza poderia comentar o codigo? Tentei acessar a fonte de origem porem o site indisponivel.

Detalhando mais sobre a minha necessidade.

a) Tenho na coluna 'A' -> aba 'Plan1' -> varias linhas com nome do arquivos alfanuméricos em formato PDF aleatorios. Estes PDF estao em um diretorio exemplo c:/PDF;

b) A rotina desejado deverá lê a coluna 'A' da aba 'plan1' -> nome do arquivo pdf -> separar esses arquivos pdf -> em uma pasta/diretorio desejado;

Mais uma vez, obrigado.
O

Uma pesquisa rapida no site. o endereço atualizado https://www.rondebruin.nl/win/s3/win026.htm
Se não tem conhecimento provavelmente o comentario não va adiantar mas:

Private Sub Move_Files_In_Folder()

Dim FSO As Object
Dim FromPath As String, ToPath As String, FileExt As String
Dim linha As Integer

For linha = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row  'Inicia um loop que vai da linha 2 ate a ultima linha com dados na coluna "A"
    FileExt = Cells(linha, 3).Value2                                        'Atribui a variavel o nome e caminho do arquivo que consta na coluna "C" (identificada pelo numero 3) 
    FromPath = FileExt                                                          'Atribui a variavel o caminha obtido anteriormente, poderia ser direto  
    ToPath = "D:Temp"                                                         'Atribui a variavel o caminho onde será colocado o arquivo

    Set FSO = CreateObject("scripting.filesystemobject")        

FSO.CreateFolder (ToPath)                                                   'Cria a pasta no local/caminho indicado
    
    FSO.MoveFile Source:=FromPath, Destination:=ToPath & fnames 'Move o arquivo
Next
End Sub

Prezado Reinaldo, obrigado pela contribuição.

Faltou clicar na mãozinha para pontuar para o Reinaldo, em agradecimento a colaboração.

[]s

Patropi - Moderador