title: continue to next iteration on TypeMismatch 2042 Error
body: <p>I am looking for a Continue statement in VBA.</p>
  
  <p>I found a VB.NET solution but the Excel "IDE" does not recognise it.</p>
  
  <p><a href="http://msdn.microsoft.com/en-us/library/801hyx6f.aspx" rel="nofollow">http://msdn.microsoft.com/en-us/library/801hyx6f.aspx</a></p>
  
  <p>I want to skip an iteration if an Error occurs. Is there any other way - a more elegant solution -  but GOTO (which imho is the worst case) or wrapping the whole Sub in an If-statement (which doesn't help readability either)? </p>
  
  <p>Code snippet</p>
  
  <pre><code>'While Loop.... 
  
      For Each C In w.Range(w.Cells(1, 1), w.Cells(num_rw, num_col))
              If IsError(C.Value) Then:
                  MsgBox ("File unsuitable!")
                  'Continue While
              End If
  
              If Var1 &lt;&gt; "" Then
                  If C.Value = Var1 Then: _
                    Set Var1_Range = w.Range(w.Cells(C.Row, C.Column), w.Cells(num_rw, C.Column))
              End If
              If Var2 &lt;&gt; "" Then
                  If C.Value = Var2 Then: _ 
                    Set Var2_Range = w.Range(w.Cells(C.Row, C.Column), w.Cells(num_rw, C.Column))
              End If
              If Var3 &lt;&gt; "" Then
                  If C.Value = Var3 Then:
                    Set Var3_Range = w.Range(w.Cells(C.Row, C.Column), w.Cells(num_rw, C.Column))
              End If
          Next C
          If Var1_Range Is Nothing Then: 'Continue While
  
  
  'WEND
  </code></pre>