wagnermedani,

Boa Tarde!

Veja se assim te atende.

Wagner Morel

Obrigado.

Acrescentei o seguinte comando para deletar as plans 1, 2 e 3 do novo arquivo:

Sheets(Array("Plan1", "Plan2", "Plan3")).Select
ActiveWindow.SelectedSheets.Delete

Só que sempre aparece a mensagem que tem itens selecionados e solicitando para excluir, é possível eliminar esta mensagem e salvar direto?

Att,

Boa noite!!

Tente

Sub AleVBAMenssagem() 
     
    Application.displayalerts = False 
      Sheets(Array("Plan1", "Plan2", "Plan3")).Select
      ActiveWindow.SelectedSheets.Delete
    Application.displayalerts = True 
     
End Sub 

Alexandrevba e Wagner Morel,
Obrigado, funcionou perfeitamente.

Uma última coisa para finalizar, quanto na criação do novo arquivo, se o mesmo já existe, ele informa se deseja substituir, se clicar em cancelar, o mesmo da erro, gostaria que simplesmente abortasse a operação.

Att,

Não vi qual rotina está utilizando, mas é só adaptar a abaixo:

Private Sub MsgSalvarComo()

    Dim sMsg
        
    sMsg = MsgBox("Deseja salvar um novo arquivo", vbYesNo + vbDefaultButton1 + vbQuestion, _
                      "Salvar Como")
    
    Application.EnableEvents = False
    
    Cancel = True
    
    If sMsg = vbYes Then
    
       Application.Dialogs(xlDialogSaveWorkbook).Show
       
    ElseIf sMsg = vbNo Then
    
        MsgBox " cancelou"
        
    Else
    
        Cancel = True
        
    End If
    
    Application.EnableEvents = True
   
End Sub

[]s

Mauro Coutinho,

Fiz uma adaptação pela rotina apresentada, mas não é o que estou querendo de fato.
A minha rotina esta funcionando legal, o problema é que se ele identifica que existe um arquivo do mesmo nome, ele apresenta uma msg perguntando se deseja substituir, se sim, blz, mas se optar por não ou cancelar, da erro em SalveAs.

Att,

Mas como eu disse, eu não sei qual a estrutura da sua rotina, então é só aproveitar as linhas que evitam o erro :

Aqui aparece uma mensagem se deseja Salvar :
sMsg = MsgBox("Deseja salvar um novo arquivo", vbYesNo + vbDefaultButton1 + vbQuestion, _
"Salvar Como")

'Congela o andamento da rotina
Application.EnableEvents = False

Cancel = True

Estas linhas são as que capturam o valor do Botão
Se escolheu SIM continua
If sMsg = vbYes Then

Application.Dialogs(xlDialogSaveWorkbook).Show

'Se escolheu NÃO ou CANCELAR sai da rotina sem dar a mensagem de erro
ElseIf sMsg = vbNo Then

MsgBox " cancelou"

Else

Cancel = True

End If

'Desfaz o congelamento da rotina
Application.EnableEvents = True

Se ainda não conseguir, poste a rotina que está utilizando e fazemos a adaptação.

[]s

Estou usando esta rotina:

Dim Qtde As Byte
    Workbooks.Add
    ActiveWorkbook.SaveAs (Workbooks("Dados.xls").Path & "Central Pasargada.xls")
    
    Qtde = Sheets.Count
    Workbooks("Dados.xls").Activate
    Sheets(Array("Central", "Filhos", "Médico")).Select
    Sheets(Array("Central", "Filhos", "Médico")).Copy Before:=Workbooks("Central Pasargada.xls"). _
        Sheets(Qtde)
        
    Application.DisplayAlerts = False
      Sheets(Array("Plan1", "Plan2", "Plan3")).Select
      ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = True
      
    Workbooks("Central Pasargada.xls").Save
    Workbooks("Central Pasargada.xls").Close
    MsgBox "Central Pasargada exportado com sucesso", vbDefaultButton1, "SALVAR"

wagner, antes eu gostaria de saber qual a ação pretende.

"se o mesmo já existe, ele informa se deseja substituir, se clicar em cancelar, o mesmo da erro, gostaria que simplesmente abortasse a operação."
Pelo que entendi na parte da rotina que postou, você sempre irá Salvar o arquivo com o mesmo nome, então se for só pela mensagem que aparece, é só deslocar a instrução : Application.DisplayAlerts = False para alinha logo após : Workbooks.Add, se abortarmos a operação neste ponto, o restante da rotina não irá continuar.

Feito isto a única mensagem que terá é a que está no final da rotina :
MsgBox "Central Pasargada exportado com sucesso", vbDefaultButton1, "SALVAR"

Agora se quer algo diferente, passe o que quer que faço as alterações.

[]s

Desculpe-me a minha ignorância.

Muitíssimo obrigado pela atenção.