Create Outlook Appointment in Excel VBA

Hello,

I am trying to create an Outlook appointment in Excel VBA. I'm trying to use late-binding code, because I'm not sure which versions my users will have. Here's what I have so far:

Sub appointment()
  
Dim OutlookApp
Dim AP
Set OutlookApp = GetObject(, "Outlook.Application")
OutlookApp.GetNamespace("MAPI").Logon
Set AP = OutlookApp.CreateItem(olAppointmentItem)
With AP
.Display (True)
End With
    
End Sub

However, it keeps opening an email item (instead of an appointment). Please help! Thank you!