mana,

I with you. I don't understand what John is trying to do either but it seems all the error handler will do is suppress the run time error that occurs if you press "No" to the that dialog question. It doesn't stop the dialog from popping up.

To do that, you need to evaluate the number of revisions and comments from the current select to the end of the document. Something like this:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 7/29/2017
Dim oRng As Range
  Set oRng = Selection.Range
  oRng.End = ActiveDocument.Range.End
  If oRng.Revisions.Count + oRng.Comments.Count > 0 Then
    WordBasic.NextChangeOrComment
      Select Case Selection.StoryType
        Case Is = 4
          MsgBox Selection.Comments(1).Range.Text
          Set oRng = Selection.Comments(1).Reference
          oRng.Select
          Selection.Collapse wdCollapseEnd
        Case 1
          MsgBox Selection.Text
          oRng.Revisions(1).Range.Select
          Selection.Collapse wdCollapseEnd
      End Select
  End If
lbl_Exit:
  Exit Sub
End Sub