Use code such as shown below

Sub AddToOutlook()

Dim o As Outlook.Application
Dim ai As Outlook.AppointmentItem

Set o = GetObject(, "Outlook.Application")
Set ai = o.CreateItem(olAppointmentItem)
ai.Body = "Do abc"
ai.Subject = "Things to do"
ai.Start = "05/19/05 04:00:00 PM"
ai.Duration = 30
ai.Close olSave

End Sub

Alok Joshi
"itsupport@cthomes" wrote:

Is there a way to link dates from an Excel spreadsheet to an Outlook
Calendar? I would like to have reminders in my Calendar for times when I
want to send out Marketing materials. Thanks in advance.