Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
Dim lngInstance As Long, lngCount As Long
  lngCount = 0
  Set oRng = Selection.Range 'or ActiveDocument.Range
  With oRng.Find
    .Text = InputBox("Text to find:")
    lngInstance = InputBox("Sequenced number to find:")
    While .Execute
      lngCount = lngCount + 1
      If lngCount = lngInstance Then
        oRng.HighlightColorIndex = wdYellow
        Exit Sub
        oRng.Collapse wdCollapseEnd
      End If
    Wend
  End With
lbl_Exit:
  Exit Sub
End Sub