2016 VBA for SaveAs, Print and keep original open

[cgull]

I have a worksheet for sales orders. I need a code for the following to happen after the sales order has been filled in: save a copy of form (without macros), the completed form printed, the original cleared, the number advanced and the original saved and left open. Can anyone help me. I am new with macros and I am over my head on this. This is what I have so far:

Sub PrintSO()
ActiveSheet.PrintOut
End Sub
Sub NextSO()
Range("N1").Select
ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
End Sub
Sub SO()
Dim File As Variant

Application.DisplayAlerts = False

File = "C:\Users\***\Documents\***\SO" & Range("M1").Value & Range("N1").Value

ActiveWorkbook.SaveAs File, FileFormat = 52

Application.DisplayAlerts = True

End Sub
Sub Picture3_Click() (This is the button to push to print save)
Call PrintSO
Call SO
Call ClearSO
Call NextSO
End Sub

Thank you in advance for any help.

 

[Fluff]

Hi & welcome to the board
If it's just the one sheet, try

Sub SO()
Dim File As Variant
Application.DisplayAlerts = False

File = "C:\Users\***\Documents\***\SO" & Range("M1").Value & Range("N1").Value
ActiveSheet.Copy
ActiveWorkbook.SaveAs File, 51
ActiveWorkbook.Close False
Application.DisplayAlerts = True

End Sub

 

[cgull]

That crashed Excel.

 

[Fluff]

It shouldn't. Try this, a message box will appear with the file path & name. Is it correct

Sub SO()
Dim FileNme As Variant
Application.DisplayAlerts = False

FileNme = "C:\Users\***\Documents\***\SO" & Range("M1").Value & Range("N1").Value
MsgBox FileNme
ActiveSheet.Copy
ActiveWorkbook.SaveAs FileNme, 51
ActiveWorkbook.Close False
Application.DisplayAlerts = True

End Sub