Saving workbook with certain macro?

[afc171]

Hi all,

Is there a way to save-as with only 1 certain macro?

At the moment this done not save any macros but I would like it to keep one when saving

Sub SaveFO()

Dim FSO
Dim sFolder As String
Dim Ref

Ref = Sheets("QR9 Order Summary").Range("AG1").Value

sFolder = "O:\Public\Lab consumables\Completed Orders\"

Worksheets("QR9 Order Summary").Copy
With ActiveWorkbook
    .SaveAs Filename:=sFolder & Ref, FileFormat:=xlOpenXMLWorkbookMacroEnabled

End With
    
    MsgBox "Completed Order Saved"

        Application.DisplayAlerts = False
        Application.Quit
        
End Sub

Thank you

 

[Joe4]

Since you are only copying the one sheet, and saving that to a new workbook, it only copies the VBA code in that Sheet Module.
If you have other VBA code that is stored in General/Standard Modules, or in the This Workbook module, copying over just the sheet like that will not add that VBA code to your new workbook.
You have to take a different approach if you want to do that.

One such approach would be to save the whole workbook as a new workbook, then delete the sheet that you do not want.

 

[afc171]

Thanks Joe4

I removed the worksheet copy which seems to have done the trick.

 

[Joe4]

Excellent!