Sub CommentNext()
' Paul Beverley - Version 13.11.21
' Goes to next comment

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