Dunce,
Copy the code below into a codemodule, and set a reference to Outlook. Then select the cells with
the dates, and run the macro. It will create an appointment at 8:00 on the date of each cell.
HTH,
Bernie
MS Excel MVP
Sub CreateOutlookAppointments()
Dim OL As Object
Dim myAppt As Outlook.AppointmentItem
Dim myCell As Range
Set OL = CreateObject("outlook.application")
For Each myCell In Selection
Set myAppt = OL.CreateItem(olAppointmentItem)
With myAppt
.Body = "An important reminder"
.Start = myCell.Value + 8 / 24
.Subject = "This is an important reminder"
.Save
End With
Next myCell
End Sub