VBA Save As Keep Formatting

[vahnx]

I'm working on an automation process for my workplace. The problem I'm having is the Save As at the end... It's not keeping the formatting. If I manually save as it keeps all the coloring/spacing but just doing Me.SaveAs doesn't act the same. Input files are .csv's and output are .xls's

Me.SaveAs (Me.Path & "\" & Mid(Me.Name, 1, Len(Me.Name) - 4) + "_CN WrkSht.xls")

 

[shg]

You're still saving as a csv file.

Try

    Me.SaveAs Left(Me.FullName, InStrRev(Me.FullName, ".")) & "xls", _
              FileFormat:=xlNormal

 

[vahnx]

Ah that makes sense. Thanks.