Daniel

Seja bem-vindo ao fórum!

Você não obteve resposta até agora porque aproveitou um tópico já Resolvido, e quase ninguém acesa tópicos que constem como RESOLVIDOS

Sempre crie um novo tópico para a tua dúvida.
Se achar necessário, faça como eu fiz no teu tópico, insira um link para o tópico que você deseja como referência.

[]s

Patropi - Moderador

Bom dia!!

Seria algo assim...?

Sub Copia_Para_Outro_Arquivo()
    
    Dim strFileName As String
    
    strFileName = InputBox("Digite um nome para o novo Arquivo", "Nome do Arquivo")
    If Trim(strFileName) = vbNullString Then Exit Sub
    
    ActiveSheet.Range("A38:AS62").Copy Sheets.Add.Range("A1")
    ActiveSheet.UsedRange.EntireColumn.AutoFit
    ActiveSheet.Move
    ActiveWorkbook.SaveAs "C:teste" & strFileName & ".xls", xlNormal
    ActiveWorkbook.Close False
    
End Sub
Sub Copia_Para_Outra_Guia()
ThisWorkbook.Worksheets("Guia1").Range("C19").Select
Selection.Copy Destination:=Worksheets("Guia2").Range("B8")
End Sub

Att

Alexandre, Daniel e demais foristas, bom dia!

Por favor, com base neste último código de exportação (Sub Copia_Para_Outro_Arquivo(), como poderia adaptá-lo para que ao invés do intervalo, fosse copiado toda as Abas da Pasta de Trabalho?
Desde já, agradeço pela ajuda!!
Abçs!

Bom dia Alexandre, muito obrigado pela dica. Porém, o novo arquivo gerado apresenta todas as suas células em branco. O intervalo designado pelo código não foi salvo

Valeus

Boa tarde!!

Enquanto isso, tem como postar seu arquivo modelo?

Att

Boa tarde Alexandre, segue em anexo o arquivo.

Obrigado