Sub CommentPrevious()
' Paul Beverley - Version 13.11.21
' Goes to previous comment

hereNow = Selection.Start
Selection.GoTo What:=wdGoToComment, Which:=wdGoToPrevious
If Selection.Start = hereNow Then Beep
End Sub