title: repeat task until no more error vba
body: <p>I'm writing a script to find tickers based on stock names. Naturally, sometimes companies are not found the way they are written. The reason for this is the source usually tacks on some unneccesary bit at the end. Im trying to write my script so that it will repeatedly remove words from the end until the ticker is gotten. If the ticker is never gotten, then to Resume Next and select the next row. Is there a way to do this?</p>
  
  <pre><code>Sub TickerLookup()
  
  cell = ActiveCell.Value
  
  10 If Not IsEmpty(ActiveCell.Value) Then
      GoTo GetTicker
     Else
      GoTo 20
  End If
  Catch:
      For Each c In Selection
          If Not IsEmpty(c.Offset(, -1)) Then
              cell = Left(cell, InStrRev(cell, " ") - 1)
              MsgBox cell
          Else
              MsgBox "Please clear all adjacent cells"
          End If
   Next
   Resume Next
   Selection.Offset(1, 0).Select
   GoTo 10
  
  GetTicker:
  
      cell = ActiveCell.Value
      'remInc = Replace(cell, "INC", "")
      'remCos = Replace(remInc, "COS", "")
      cmpnyName = cell
  
      ticker = "http://dev.markitondemand.com/MODApis/Api/v2/Lookup/json?input=" &amp; cmpnyName
  
      Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
           MyRequest.Open "GET", ticker
           MyRequest.Send
      Dim Json As Object
           Set Json = JsonConverter.ParseJson(MyRequest.ResponseText)
  
  
      On Error GoTo Catch
      ActiveCell.Offset(, -1).Value = Json(1)("Symbol")
  
      Selection.Offset(1, 0).Select
      GoTo 10
  
  20 End Sub
  </code></pre>