Sub ProperCaseSubject() Dim myMessage As Outlook.MailItem Set myMessage = Outlook.ActiveInspector.CurrentItem Dim subject As String subject = myMessage.subject ' Problematic line ' You need to input this or capture this s = StrConv(subject, vbProperCase) myMessage.subject = s End Sub