If Selection.Comments.Count >= 1 Then MsgBox "Comment made by " & Selection.Comments(1).InitialEnd If