Boa tarde pessoal, tudo bem?

Toda semana, eu baixo algumas bases de dados zipadas, ai eu tenho que descompactar cada uma delas (umas 20 mais ou menos...)

Eu busquei vários tópicos na internet, tanto ingles como em português, e não consegui encontrar nenhuma solução para o meu problema.

Eu preciso descompactar automaticamente todos os arquivos zip da pasta, só que quando eu rodo a macro, aparece o erro 91, na linha do namespace.

Alguém pode me ajudar?

(não tenho como upar o arquivo, pois aqui no meu trabalho é bloqueado)

Segue o código que estou usando:

Sub TestRun()
Dim strTargetPath As String
Dim Fname As String
Dim fso As Object
Dim folder As Object
Dim caminho As String
Dim arquivo As Object


Set fso = CreateObject("Scripting.FileSystemObject")

caminho = "C:UsersrodrwanDesktopTABELÕES2016Março"


Set folder = fso.GetFolder(caminho)
For Each arquivo In folder.Files
If Right(arquivo.Name, 3) = "zip" Then
Call UnZip(caminho, arquivo)
End If
Next
  '  Call UnZip("C:UsersNCDesktopVisheshTest", "C:UsersNCDesktopVisheshTestTestZipFile.Zip")
 
End Sub
 
 
 
Sub UnZip(caminho As String, arquivo As Variant)
 
    Dim oApp As Object
 
 
    Set oApp = CreateObject("Shell.Application")
 
    oApp.Namespace(caminho).CopyHere oApp.Namespace(arquivo).items
    
 
End Sub