sending the active worksheet and an additional new sheet

[Qaspec]

I'd like to send the active worksheet plus an additional worksheet that I
would like to name. I want to name the new worksheet "Main". Here is the code
I have that allows me to send the active sheet. What do I add in there to
allow me to also add in a blank named worksheet?

Private Sub Send1_Click()
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "NewEmployeeData.xls"
ActiveWorkbook.SendMail "", _
"Employee Attendance Data"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

 

[Qaspec]

Add the following
Answered my own question. Miracles do happen.

Worksheets.Add.Name = "Main"

right under ActiveSheet.copy

Private Sub Send1_Click()
Dim strDate As String
ActiveSheet.Copy
Worksheets.Add.Name = "Main"
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "NewEmployeeData.xls"
ActiveWorkbook.SendMail "", _
"Employee Attendance Data"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub