VBA Save As and Save Conditional Formatting

[barim]

Is there any way to have Save As to a new file and copy over all Conditional Formatting rules?

I can do this if I manually save a file. I tried to do it with VBA code but it doesn't copy Conditional Formatting. I would like to have it saved as .xlsm.

Thank you in advance.

 

[DanteAmor]

Try

Sub save_copy()
    ThisWorkbook.savecopyas "newfile.xlsm"
End Sub