Macro copiar tabelas em único arquivo

[rodbigod]

Prezados,

Estou tentando criar uma macro que vá até uma pasta que tenho com treze arquivos excel (cada uma possui uma única sheet) e as copie para um outro arquivo.

Esbocei a macro abaixo mas me retorna um erro

  Citar

Subscrito fora do intervalo.

Public Sub Macro1()

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Aqui = FSO.GetFolder("C:\Minha Pasta")
For Each Arqui In Aqui.Files
Workbooks.Open Filename:=Arqui                                      'Até aqui tudo funciona!
Worksheets.Copy before:=Workbooks("Pasta1").Sheet
ActiveWorkbook.Close

Next

End Sub

alguém pode me ajudar?

Grato,

[Paulo H Grando]

Você está usando o objeto Worksheets sem passar nenhum parâmetro. Aconselho a utilizar Sheets(1).Copy, caso seja a primeira planilha em cada arquivo.