I hope I'm not getting too greedy here with the great help on this site, but....

In the code


Private Sub CommandButton1_Click()
Dim strDate As String
ActiveSheet.Cells.Copy
Workbooks.Add
Selection.PasteSpecial Links = False
strDate = Format(Date, "mm-dd-yy")
ActiveWorkbook.SaveAs strDate & ".xls"
ActiveWorkbook.SendMail "<recipient>", _ "Daily Sales Report for " & strDate
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub


How would I add an additional worksheet (same workbook) to the same email? This worksheet would never be an "ActiveSheet".

Any takers? TIA