title: Selecting the second result of a "Find" with VBA
body: <p>I am trying to make it so that I can find the second result for "lights", in case of having various occurrences for this term. The code below finds the first occurrence in the range under consideration.</p>
  
  <pre><code>    Dim ws As Worksheet
      Dim rng1 As Range
      Dim y As Range
  
       Columns("B:B").Select
  Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
      , SearchFormat:=False).Select
      Set x = Range(Selection, Selection.End(xlDown)).Offset(0, 3)
      Range(x.Address(0, 0)).Select
      Selection.Find(What:="Lights", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
      xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
      , SearchFormat:=False).Activate
  
        Selection.FindNext(After:=ActiveCell).Activate
        Selection.FindNext(After:=ActiveCell).Select
  </code></pre>