How to make new, blank

[Guest]

I've created a VBA project that automatically displays a form to collect user
input that are then sent to a single contact who manages all these records.

The problem is that I send the admin a form that ALSO contains the form (all
the VBA modules).

How do I create a "blank" spreadsheet that has "just the data" and none of
the macros?

 

[Charles Harmon]

Hi,
The following code my work. You need to change "Sheet1" to the worksheet you
want to send.
You can enter a subject and Message. Enter the E-mail address. If you have
virus protection you may get a popup. Test before you use.

Charles

Sub sendMymail()
Sheets("Sheet1").Select '''creates the work sheet to be sent
Sheets("Sheet1").Copy
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Delivery = xlOneAfterAnother
.Subject = " Your Subject"
.Message = "Your Message if any"
.Recipients = "Your E-Mail address"
.ReturnWhenDone = False
ActiveWorkbook.Route
End With
ActiveWorkbook.Saved = True
ActiveWindow.Close
End Sub