Saving subset of Worksheets

[rtiltins]

Hi all,
I am trying to e-mail a portion of a spreadsheet that I have. My approach is the following: I save a copy in a temporary folder, open that copy, remove all the sheets that I don't need to send out, save it (same name as the e-mail subject), and then e-mail as an attachment. The current approach does not remove the macros and references though. I use the following to remove the macros and references:

Set vbCom = Application.VBE.VBProjects(EmailSubject).VBComponents
vbCom.Remove VBComponent:=vbCom.Item("AddIn_Manager")
    
Set vbRef = Application.VBE.VBProjects(EmailSubject).References
vbRef.Remove Reference:=vbRef.Item(1)

Any thoughts on this? or perhaps suggestions for another method?