Mantener el mismo formato de mi hoja de calculo esportada a otro archivo
Hola a los maestros en excel tengo una duda tengo una macro que te exporta los balotes de un hoja de calculo a un archivo excel, la macros es genial, el inconveniente es que al ser exportado la hoja de calculo se pierde el formato y estilo de la hoja o archivo origen, me gustaría que alguien me ayude a modificarla para que el archivo exportado mantenga el mismo estilo de celda y formatos... Adjunto la macro
Private Sub EXPORT_lista_Click()
Application.DisplayAlerts = False
Sheets("IMPRIME").Select
template_file = ActiveWorkbook.FullName
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\" + _
VBA.Strings.Format("libreta de secciones") + ".xlsx", _
fileFilter:="Text Files (*.xlsx), *.xlsx")
If fileSaveName = False Then
Exit Sub
End If
'cria uma cópia da pasta de trabalho atual da planilha atual
Dim newBook As Workbook
Dim plan As Worksheet
Set newBook = Workbooks.Add
ThisWorkbook.ActiveSheet.Cells.Copy
newBook.Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
'exclui as demais planilhas
For Each plan In newBook.Sheets
If plan.Name <> ActiveSheet.Name Then
newBook.Worksheets(plan.Index).Delete
End If
Next
'
newBook.SaveAs Filename:=fileSaveName
'fecha a pasta de trabalho gerada
newBook.Close SaveChanges:=True
Set newBook = Nothing
Sheets("DATOS").Select
MsgBox "Se ha exportado correctamente! ", vbInformation, "LISTA"
End Sub
