title: VBA need Range assistance
body: <p>the following is the function I have for adding the non underlined entry </p>
  
  <p>(to simplify it a bit, there is also a function that does this twice adding 1 string underlined and then the string after it not underlined) </p>
  
  <pre><code>Function Add_Single_Entry(ByVal uEntry As String, ByVal ptime As String, ByVal crntValue As String)
  
      uEntry = UCase( uEntry )
      Call add_tList( ptime )
      Dim rng1 As Word.Range
  
      ' Set Selection position however is appropriate
      Set rng1 = Selection.Range
      rng1.End = rng1.Start
      rng1.Text = uEntry
      Selection.Start = rng1.End
  End Function
  </code></pre>
  
  <p>I need to be able to set my starting point to be the next line after the last instance of <code>crntValue</code> but I'm not sure how.</p>
  
  <p>to clarify i would like the code to find the last instance of say "<code>0000Z</code>" (<code>crntValue</code>) in a Word document and then input a string on the next line. </p>