Outlook - Apply VBA code to appointments when selected but not opened

[JuliannaDemp]

I'd like to modify this vba code to run on appointments that are selected, but not opened.

Option Explicit
Sub InsertConfCallInfo()
Dim myItem As AppointmentItem
    On Error GoTo lbl_Exit
    Set myItem = ActiveInspector.CurrentItem
    myItem.Location = "CALL: (866) 555-1212 / CODE: 9854101812"
    'myItem.Display 'Not required as the item is already displayed.
lbl_Exit:
    Exit Sub
End Sub