Allex,

Somente com esse trecho do código fica difícil depurar e saber o que está ocorrendo. Esse erro, geralmente, ocorre quando o arquivo de destino ou de origem está com um nome errado, contém caracteres que não são permitidos em nomes de arquivos ou quando o VBA não consegue achar os caminhos especificados.

Você mesmo pode rodar no modo de depuração, ir colocando o mouse em cima de cada linha destacada de amarelo, nas variáveis e ver se tudo está correto de acordo com o que você projetou para ocorrer.

Para fazer a depuração. coloque o cursor em cima de uma linha inicial, por exemplo, na linha pastaorigem = Sheets("Contra_Cheques").Range("f2").Value, pressione F9 e depois vá andando passo a passo pelas linhas de código com F8.

Wagner, este é todo meu código. Já verifiquei os endereços e estão corretos. Acredito que seja algo relacionado a permissões.

Chook, acredito que este não é todo o código, veja se copiar os codigos que postou e colocar em um arquivo novo tentendo recriar para verificar o erro, temos a mensagem de erro logo no inicio do Userfom_Initialize na Variavel pastaorigem como não definida, então você deve ter em algum lugar a Declaração desta Variável.

Você chegou a testar conforme o Wagner disse, utilizando a tecla F8 para ver que valor está sendo armazendao ?
Como é a digitação do caminho em "F2" ?

Este erro é como o Wagner postou, ou é definição errada no Caminho ou algum caracter inválido.

[]s

Experimente assim:
De:
Set Caminho = Objeto.GetFolder(pastaorigem.Value)
Para
Set Caminho = Objeto.GetFolder(NomeCaminho)
ou
Set Set Caminho = Objeto.GetFolder(Userform1.pastaorigem.Value)

Boa noite Reinaldo,
Apresenta o mesmo erro nas duas opções. Ainda acredito que está associado a permissões de pastas.

Testei somente o trecho conforme abaixo e funcionou sem problemas (note que mudei apenas na referencia ao userform1,e nome da palnilha):

Sub ChamaListaArquivos()
ListaArquivos "D:ReinaldoDownloads" 'UserForm1.pastaorigem.Value
End Sub

Sub ListaArquivos(NomeCaminho)
Set Objeto = New Scripting.FileSystemObject
Set Caminho = Objeto.GetFolder(NomeCaminho)
Sheets("plan1").Select
Range("A2:B" & Range("A1").End(xlDown).Row).ClearContents
Linha = 2

For Each myFile In Caminho.Files
    Range("A" & Linha).Value = myFile.Name
    Range("B" & Linha).Value = myFile.DateLastModified
    Linha = Linha + 1
Next
End Sub

Bom dia Reinaldo,
Segue minha planilha para você testar aí em sua máquina,

Abraços!

Entendi, o problema e que tenho que informar o destino com o nome do arquivo. Funcionou!! Grato a todos que auxiliaram na solução!!

Segue com modificações, tentei seguir a lógica do que entendi; veja se atende: