Sub ChangePrevious()
' Paul Beverley - Version 23.10.13
' Finds next change (not! comment)

On Error GoTo theEnd
Do
  Application.Run MacroName:="PreviousChangeOrComment"
  DoEvents
Loop While Selection.Information(wdInCommentPane)
Exit Sub

theEnd:
Selection.HomeKey Unit:=wdStory
Beep
End Sub