Guardar Excel con Macro y mantener formato

[kingsage28]

Buenas, tengo una consulta respectoa la siguiente Macro:

Código:

Range("A1:T98").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:=rutaCompleta & nombreCliente & Fecha & ".XLSX"
ActiveWorkbook.Close

El archivo se guarda bien de bien, en la ruta especificada y con todo lo que necesita, el tema es el formato, por ejemplo el archivo excel original quien aplica este código tenía por ejemplo el ancho de las celdas más pequeño. La pregunta sería como podría yo guardar ese excel en la ruta indicada anteriormente, pero teniendo en cuenta que quiero mantener el ancho de las celdas por ejemplo. (Creo que la idea viene por ActiveSheet.Paste, pero no se me ocurre que).

Muchas gracias! :)

Pablo

[mrocf]

Hola! Pablo. Podrías intentar con el siguiente

Código vb:

ActiveSheet.Copy
With ActiveWorkbook
  .SaveAs Filename:=rutaCompleta & nombreCliente & Fecha & ".xlsx"
  .Close
End With
 

Saludos, Cacho.