Douglas ianes

@Basole deu quase tudo certinho, somente o excel.application.quit que não esta fechando a aplicação. mas ja da pra eu usar a planilha como eu queria. muito obrigado pela ajuda.

@Basole Exatamente isso. rodou perfeito. Muito obrigado pela ajudar. adicionado 31 minutos depois @Basole é possivel após executar a macro manter somente o arquivo xlsx e deleter o arquivo xlsm. Sub DeleteActiveWorkbook() Dim xFullName As String xFullName = Application.ActiveWorkbook.FullName ActiveWorkbook.Saved = True Application.ActiveWorkbook.ChangeFileAccess xlReadOnly Kill xFullName Application.ActiveWorkbook.Close False End Sub seria assim?

@Basole não consegui entender o exemplo que meu deu. muito complexo para meus conhecimentos rsrs. o mais proximo que cheguei do que eu preciso foi isso. Dim NomPastTrab As String NomPastTrab = VBA.Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) ActiveSheet.ExportAsFixedFormat Type:=xlsx, Filename:= _ ThisWorkbook.Path & "\" & NomPastTrab _ Mas esta criando em PDF e não xlsx igual eu preciso.

Olá pessoal, tenha uma macro criada para salvar as informações de uma planilha em outra. após isso preciso que ela mude a planilha que esta rodando a macro de xlsm para xlsx e salve. consegui criar cópia em PDF mas alterar o formato ainda não. podem me ajduar.