Faça uma adaptação no seguinte código, no meu caso eu salvo em txt por isso uso FileFormat:=xlText dependendo de sua necessidade altere pro modelo do excel
Sub Salvar121()
Dim Diretório
Dim NomeAqv
Diretório = Range("B25")
'----------separa o arquivo para salvar
Sheets("SAFXs").Select
NomeAqv = Range("Z1")
Range("Z4").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Set newBook = Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
'----------salva como texto
Sheets("Plan1").Select
ActiveWorkbook.SaveAs Filename:=Diretório & "" & NomeAqv & "_Posto", _
FileFormat:=xlText, _
CreateBackup:=False
'----------deleta a planilha
Windows("SAFX121_Posto.txt").Activate
ActiveWindow.Close SaveChanges:=False
End Sub
Postado : 02/09/2016 2:19 pm