Sub CommentAddSimple() ' Paul Beverley - Version 18.12.20 ' Adds a new comment with a standard text item added myText = "PB: " keepPaneOpen = False Set cmt = Selection.Comments.Add(Range:=Selection.Range) cmt.Edit Selection.TypeText Text:=myText If keepPaneOpen = False Then ActiveWindow.ActivePane.Close cmt.Edit End If End Sub