title: VBA works, but screen doesn't go to cursor
body: <p>I have a Word macro that finds the selected text throughout the document, highlights all occurrences, and returns to the starting point (via a bookmark it sets first). The only problem is, after running it, Word displays the page above the bookmark (where the cursor is). The cursor isn't on screen at all.</p>
  
  <p>After running it, I can tap a key and the screen moves to display the entry point. I added a line to do the same thing within the macro (move right one character), and it still drops me a page above. I tried using SmallScroll on the window, but that moves the insertion point. I need to end up where I started.</p>
  
  <p>What can I do?</p>
  
  <hr>
  
  <p>Sorry about not posting the code before, I couldn't get it to format as code. (I blame IE8 on a federal network.)</p>
  
  <pre><code>Sub AcronymHilighter()
  
  ''''''''''''''''''''''''''''''''''''''''
  ' Check that user has selected some text
  ''''''''''''''''''''''''''''''''''''''''
  Dim strGetAcronym As String
  If Not Selection.Type = wdSelectionNormal Then
  MsgBox "Please select some text.", vbInformation
  Exit Sub
  End If
  '''''''''''''''''''
  ' Set a bookmark at the current location
  '''''''''''''''''''
  ActiveDocument.Bookmarks.Add _
      Name:="MarkReturn", Range:=Selection.Range
  '''''''''''''''''''
  ' Save the current track changes state, then turn it off
  '''''''''''''''''''
  Dim bTrackingAsWas As Boolean
  
      bTrackingAsWas = ActiveDocument.TrackRevisions
  
      ActiveDocument.TrackRevisions = False
      ActiveDocument.ShowRevisions = False
  ''''''''''''''''''
  ' Find &amp; highlight the text
  ''''''''''''''''''
  strGetAcronym = Selection.Text
  Selection.Range.HighlightColorIndex = wdYellow
  Selection.Collapse wdCollapseEnd
  
  With Selection.Find
      .Text = strGetAcronym
      .Highlight = False
      .Wrap = wdFindContinue
      .MatchCase = True
  Do While .Execute
      Selection.Range.HighlightColorIndex = wdYellow
  Loop
  End With
  '''''''''''''''''''''''''''''
  ' Return to the starting point,
  ' restore Track Changes to the previous state
  '''''''''''''''''''''''''''''
  Selection.GoTo what:=wdGoToBookmark, Name:="MarkReturn"
  ActiveWindow.SmallScroll Down:=2
  ActiveDocument.TrackRevisions = bTrackingAsWas
  ActiveDocument.ShowRevisions = True
  
  End Sub
  </code></pre>
  
  <p>Pardon my excessive commenting, I like to remind myself what everything does; the last time I wrote code, it was in BASIC in 1985.</p>