title: returning back to loop after using GoTo
body: <p>I have tried several methods but didn´t manage to succeed. My problem is - running loop1, if some condition is fulfilled, run loop2 until some condition is fulfilled, return back to loop1.</p>
  
  <pre><code>sub program()
  Dim i As Integer
  Dim q As Integer
  
  For i=1 to 350
  If Range("A"&amp;i).value=1 And Range("D"&amp;i).Value&lt;15 Then Goto 1
  Next i
  
  1:q=0
    Do While List1.Range("A"&amp;i+q).Value&lt;&gt;""
    Range("E"&amp;i+q)="K"
    q=q+1
    Loop
  
  End Sub
  </code></pre>
  
  <p>I haven't found the way how to return after executing "1 loop" back to "For Next Loop" and continue for next i. Maybe it is not possible and I have to include somehow code inside the first loop ?! thank you</p>