No código abaixo quando coloco para rodar, ocorre um erro nesse momento: wsDestino1.Range("a1").Select.

Caso eu vá para a planilha e clico na aba de destino a macro roda perfeitamente.

Como corrigir? já tentei o código de Sheets ("Agro).select porém não funciona.

[quote]Application.ScreenUpdating = False
 
 
  
 Dim wsOrigem1 As Worksheet
 Dim wsDestino1 As Worksheet
 Dim wsOrigem2 As Worksheet
 Dim wsDestino2 As Worksheet
 Dim wsOrigem3 As Worksheet
 Dim wsDestino3 As Worksheet
 Dim wsOrigem4 As Worksheet
 Dim wsDestino4 As Worksheet
 Dim wsOrigem5 As Worksheet
 Dim wsDestino5 As Worksheet
        
 
 Workbooks.Open ("A:_EMPRESAS1_LOJA2_LOJA21_Projetos_AtivosEMPRESA# Pasta de trabalhoTrabalho 2018Valoraçãovaloração agro empresa.xlsm")
 Workbooks.Open ("A:_EMPRESAS1_LOJA2_LOJA21_Projetos_AtivosEMPRESA# Pasta de trabalhoTrabalho 2018Valoraçãovaloração qualidade empresa.xlsm")
 Workbooks.Open ("A:_EMPRESAS1_LOJA2_LOJA21_Projetos_AtivosEMPRESA# Pasta de trabalhoTrabalho 2018Valoraçãovaloração engenharia empresa.xlsm")
 Workbooks.Open ("A:_EMPRESAS1_LOJA2_LOJA21_Projetos_AtivosEMPRESA# Pasta de trabalhoTrabalho 2018Valoraçãovaloração MKT.xlsm")
 Workbooks.Open ("A:_EMPRESAS1_LOJA2_LOJA21_Projetos_AtivosEMPRESA# Pasta de trabalhoTrabalho 2018Valoraçãovaloração p&d.xlsm")
 
               
        'Arquivos e Abas de Origem e Destino - substitua aqui pelos nomes de seu workbook e worksheet
        Set wsOrigem1 = Workbooks("valoração agro empresa.xlsm").Worksheets("valoração")
        Set wsDestino1 = Workbooks("Resumo auto.xlsm").Worksheets("Agro")
          
                
            With wsOrigem1
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A1:v1000").Copy
                
                wsDestino1.Range("a1").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

         Set wsOrigem2 = Workbooks("valoração qualidade empresa.xlsm").Worksheets("valoração")
        Set wsDestino2 = Workbooks("Resumo auto.xlsm").Worksheets("Qualidade")
          
            With wsOrigem2
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A1:v1000").Copy
                wsDestino2.Select
                wsDestino2.Range("a1").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                
                Set wsOrigem3 = Workbooks("valoração p&d.xlsm").Worksheets("valoração")
        Set wsDestino3 = Workbooks("Resumo auto.xlsm").Worksheets("P&D")
          
            With wsOrigem3
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A1:v1000").Copy
                wsDestino3.Select
                wsDestino3.Range("a1").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                
                Set wsOrigem4 = Workbooks("valoração engenharia empresa.xlsm").Worksheets("valoração")
        Set wsDestino4 = Workbooks("Resumo auto.xlsm").Worksheets("Engenharia")
          
            With wsOrigem4
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A1:v1000").Copy
                wsDestino4.Select
                wsDestino4.Range("a1").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                
                Set wsOrigem5 = Workbooks("valoração MKT.xlsm").Worksheets("valoração")
        Set wsDestino5 = Workbooks("Resumo auto.xlsm").Worksheets("MKT")
          
            With wsOrigem5
                    'substitua aqui os ranges origem e destino pelos quais voce quer
                .Range("A1:v1000").Copy
                wsDestino5.Select
                wsDestino5.Range("a1").Select
                
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
      
                
            End With
            End With
     End With
     End With
     End With



End Sub[/quote]