Close Selected Comment

[hookeymookey]

I've got an end user on Office 2013, that can't right-click, wanting to be able to 'Close' comments.



There is a VB string to close specific comments, but that doesn't do any good on a document that has more than 1 comment. So I see where the problem is, but I'm not sure how to (if it's even possible) to use 'Selection' to close a highlighted comment.

What I have setup below closes the first comment.

Sub Name()
With ActiveDocument.Comments(1)
.Done = True
End With
End Sub