Copiar arquivos de uma pasta para outr

[carlossanoli]

Pessoal, 

Eu sou super novo em VBA e surgiu uma demanda aqui no trabalho em que preciso copiar uma série de pastas zipadas da rede para pastas no meu PC. 

Com isso, escrevi o codigo a seguir, cujo objetivo é copiar a pasta da rede e colar na pasta local selecionada. A pasta da rede não muda, então coloquei o caminho dela já no código. Como a pasta local pode variar, coloquei para selecioná-la em uma célula do excel. Porém o código da erro e não tenho a mínima ideia de como posso corrigí-lo. Alguém poderia me ajudar?

Private Sub CommandButton1_Click()Dim FSO As Object
Dim FromFolder As String
Dim ToFolder As Variant
Dim NomeBase As Range
Dim ConjBase As Range
Dim xVal As String




Set NomeBase = Application.InputBox("Selecione as bases:", "Selecione as Bases", ActiveWindow.RangeSelection.Address, , , , , 8)
    If NomeBase Is Nothing Then Exit Sub
    
    FromFolder = "C:\Users\carlossantana.CARLOS\Downloads"
    
    ToFolder = Range("A1").Value
    
For Each ConjBase In NomeBase
        xVal = NomeBase.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy FromFolder & xVal, ToFolder & xVal
            Kill FromFolder & xVal
        End If
    Next
End Sub

[Alyson Ronnan Martins]

Boa tarde @carlossanoli

Quando você executa o código ele para em qual linha?