Erro - O método 'NameSpace' do objeto 'IShellDispatch6' falhou

Boa tarde,

Esse erro aparece ao tentar executar no Excel 2010 a macro do código abaixo:

Sub Descompactar()

Dim oApp As Object
Dim arquivo As Variant
Dim caminho As Variant

'On Error GoTo RazãoDoErro

lr = ActiveSheet.Cells(Rows.Count, 6).End(xlUp).row

For i = 2 To lr
arquivo = Cells(i, 6).Value
caminho = Cells(i, 7).Value & "\"

'On Error Resume Next

Set oApp = CreateObject("shell.application")
oApp.Namespace(caminho).CopyHere oApp.Namespace(arquivo).Items
Next

'RazãoDoErro:
' If Err.Number <> 0 Then
' MsgBox "Ocorreu o seguinte erro : " & Err.Description & vbCrLf & "Código do erro : " & Err.Number, vbInformation + vbOKOnly, "Alerta!"
' End If

End Sub

Alguma ideia?

Abs

Tópico movido para sala Off Tópic por não se tratar de nada relacionado a Access.

Vale lembrar que este é um fórum sobre Access, para assuntos de outros aplicativos o melhor é procurar o fórum correspondente.