Bom dia!!

Tente isso

Sub TesteAleVBA()
Application.DisplayAlerts = False
Sheets(3).Delete
Sheets(2).Delete
For Each Sh In Sheets
  Sh.UsedRange.Value = Sh.UsedRange.Value
Next

ActiveWorkbook.SaveAs Filename:="AleVBA.xlsx", FileFormat:=xlOpenXMLWorkbook

End Sub

Deu certo não,
postei a plan ai ,o código ta dentro da plan resumo copm o nome de gerar sem macro
é só clicar em no botao gerar_sem_macro

Boa noite!!

Eu acho que deu certo sim, procure um arquivo chamado AleVBA...

De qualquer forma tente, assim....

Sub TesteAleVBA()
Application.DisplayAlerts = False
Sheets(3).Delete
Sheets(2).Delete
Mypath = "C:"
Application.Dialogs(xlDialogSaveAs).Show Mypath
For Each Sh In Sheets
  Sh.UsedRange.Value = Sh.UsedRange.Value
Next

ActiveWorkbook.SaveAs Filename:="AleVBA.xlsx", FileFormat:=xlOpenXMLWorkbook

End Sub

Att

Me desculpe, mas nem vi que o anexo nao foi anexado, (é que era > q 500K).
Alexandre não tá deletando as planilhas, notei com o seu código numa planilha "nova" funciona, porem dentro da minha não. e ele fecha a plan "original" xlsm , mas a original deve continuar aberta, a "nova" xlsx que deve ser gerada e fechada.

Descculpem,
Mais uma besteira, arquivo bloqueado com senha , ta ai o desbloqueado

to tentando achar o erro aqui, desde as 13:00 , porem sem sucesso ainda

UP

alguem com mais soluções?

alguem me dá uma luz por favor?Pra eu tentar fechar essa plan agora no feriado

up