[Resolvido]Exportar mais de uma "Sheets" para outro arquivo.

Estou querendo exportar planilhas de dados de um arquivo para outro, só que até o momento não consegui realizar essa tarefa.

Exemplo:

Tenho a as planilhas x1, x2, x3, x4, x5 e x6 num arquivo NomeQualquer,

preciso exportar as planilhas x2, x4, x5 e x6 sem prejudicar a "NomeQualquer", e esta que foi exportada aparecer com nome Empresa x.

Se alguém puder ajudar fico grato desde já.

Olá, bem vindo ao fórum.
Pretende fazer isso através do Excel ou Access?
Abraço

Pretendo realizar essa exportação de excel para excel através de um comando em vba.
usei esse:

Sub EXPORTDADOS()

Sheets("DADOS").Select
   If Range("A2") = Empty Then
       MsgBox "não há dados a exportar.", vbInformation, "sem dados"
       Exit Sub
   End If
       
       Range("A2", Range("E65536").End(xlUp)).Copy
   'SE TIVEREM EM PASTAS DIFERNETES USAR ESTE
       'Workbooks.Open "C:\Users\Scharles\scharles curso\TESTES\MACRO_01.xlsm"
   ' SE ESTIVER NA MESMA PASTA USAR ESTE
       Workbooks.Open ActiveWorkbook.Path & "\MACRO_01.xlsm"
       Sheets("CADA").Select
       Range("A65536").End(xlUp).Offset(1, 0).Select
       ActiveSheet.Paste
       ActiveCell.Select
       ActiveWorkbook.Close True
       MsgBox "Os dados foram exportados com sucesso.", vbInformation, "Exportação bem sucedida"   
End Sub


Mas esse exporta (copia - .copy) somente dados selecionados na equação de uma planilha para outra ja existentes,
mas eu preciso realizar a exportação de mais de uma "Sheets" para um novo arquivo com o nome que se encontra em uma célula especifica:
ex.:

Sheets("DADOS").cells (1,1)  nessa celula contém (EMPRESA 1)
e tenho as folhas Clientes, Funcionários e Cargos para exportar para esse novo documento.

Agradeço desde já pela ajuda.

Pois, mas este fórum é dedicado ao Access, não sei se algum colega pode ajudar.
Tente procurar num fórum de Excel.
Abraço

Ok.
Vou verificar.

Na falta de melhor
https://www.google.pt/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=vba%20excel%20copy%20sheets%20to%20another%20workbook
Abraço