If you want to work with the currently open item you need to use the followingOption 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