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.