title: Send user back to first page?
body: <p>So, after running the code bellow, i want to send users back to the top of the first page. Tried to use <code>Selection.HomeKey Unit:=wdStory</code> and the <code>GoTo</code> metod, but nothing seen to work properly.</p>
  <p>Now, after the code runs, the user is always back to the end of the first page.</p>
  <p>Some clue on why is this happening?</p>
  <p>This is the code.</p>
  <pre><code>Private Sub OptionButton5_Click()
  'Orange
  Dim sShapes As Shape
  Dim Orange
  Dim Green
  Dim DarkOrange
  Dim DarkGreen
  Dim White
  
  DarkOrange = RGB(252, 138, 74)
  Orange = RGB(253, 189, 153)
  Green = RGB(70, 184, 160)
  DarkGreen = RGB(28, 76, 66)
  White = RGB(255, 255, 255)
  
  Application.ScreenUpdating = False
  
  
  
  If OptionButton5.Value = True Then
  If MsgBox(&quot;Deseja mudar para Santa Lucia?&quot; &amp; vbNewLine &amp; vbNewLine &amp; &quot;Isso pode levar algum tempo&quot;, vbYesNo, &quot;Mudança de Modelo&quot;) = vbYes Then
      GoTo Label2
     Else
     GoTo Label1
     End If
     
     
  Label2:
      ActiveDocument.Bookmarks(&quot;TabelaConta&quot;).Select
      Selection.Tables(1).Style = &quot;Tabela de Grade 2 - Ênfase 2&quot;
      ActiveDocument.Bookmarks(&quot;ListaEspecie&quot;).Select
      Selection.Style = &quot;Tabela de Grade 2 - Ênfase 2&quot;
      ActiveDocument.Bookmarks(&quot;ListaEspecie&quot;).Range.Rows.LeftIndent = -37.15
      Selection.Collapse wdCollapseEnd
      Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
  
      
      ActiveDocument.Bookmarks(&quot;santa&quot;).Range.Font.Hidden = False
      ActiveDocument.Bookmarks(&quot;ultrafarma&quot;).Range.Font.Hidden = True
  End If
  
       For Each sShapes In ActiveDocument.Shapes
     
              If InStr(sShapes.Name, &quot;Rectangle&quot;) Then
              sShapes.Fill.ForeColor.RGB = DarkOrange
  
              ElseIf InStr(sShapes.Name, &quot;TagAmarelaEscura&quot;) Then
              sShapes.Fill.ForeColor.RGB = DarkOrange
  
  
              ElseIf InStr(sShapes.Name, &quot;TagAmarelaClara&quot;) Then
              sShapes.Fill.ForeColor.RGB = Orange
  
              ElseIf InStr(sShapes.Name, &quot;LinhaGrossa&quot;) Then
              sShapes.Fill.ForeColor.RGB = Orange
  
              ElseIf InStr(sShapes.Name, &quot;Quad&quot;) Then
              sShapes.Fill.ForeColor.RGB = Orange
  
              ElseIf InStr(sShapes.Name, &quot;BolaCor&quot;) Then
              sShapes.Fill.ForeColor.RGB = Green
  
              ElseIf InStr(sShapes.Name, &quot;Reta&quot;) Then
              sShapes.Line.ForeColor.RGB = Green
  
              ElseIf InStr(sShapes.Name, &quot;Titulo&quot;) Then
              sShapes.Fill.Visible = msoFalse
              sShapes.TextFrame.TextRange.Font.Fill.ForeColor.RGB = White
  
              ElseIf InStr(sShapes.Name, &quot;Oval&quot;) Then
              sShapes.Fill.ForeColor.RGB = DarkGreen
          End If
          Next sShapes
          
  Application.ScreenUpdating = True
  
  Selection.HomeKey Unit:=wdStory
  
  
  Label1:
  
  End Sub
  </code></pre>