Does anyone know how I could get a workbook/worksheet to automatical
email on a schedule?
Example: I want the workbook to be emailed on 9-30-2007, 10-31-2007
etc... every year do you know how this can be done?

Example Code:

Sheets(Array("Sheet1", "Sheet2")).Copy
'ActiveWindow.SelectedSheets.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "C:\Documents and Settings\"
.SendMail "email address here", _
"comment here"
.ChangeFileAccess xlReadOnly
'Kill .FullName
.Close False
End With

this the code I have.