I tried adding the code in again and this time it worked! Well 1/3 did.
I am not getting errors. Yay. But only the third appointment, DateBowlCut, is being created.
Private Sub CreateAppt_Click()
Me.Dirty = False
If Me.chkAddedtoOutlook = True Then
MsgBox "This appointment has...