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