I have the following code in Excel VBA to create an appointment in
Outlook calander. I want also to add an optional attendees.

Can anyone help? nothing I do seem to work!

Dim objOL As Object
Dim objItem As Object
Dim lngRow As Long

Set objOL = CreateObject("Outlook.Application")
Set objItem = objOL.CreateItem(1)
If Me.CheckBox_AdvanceParam.Value = True Then GoTo MultiplePM

With objItem
.Body = Me.ComboBox_PMType.Text
.Duration = 360
.ReminderMinutesBeforeStart = (60 * 24)
.Start = Me.TextBox_Date.Text & " 09:30:00 AM"
.Subject = Me.ComboBox_PMType.Text & " on " &
End With

Thanks a lot,