title: On error GOTO statement in VBA
body: <p>I have this code to find a particular value in an excel sheet using the Ctrl+F command , but when the code does not find anything i want it to throw a message.</p>
  
  <pre><code>    sub test()
      f=5
      do until cells(f,1).value=""    
      On Error goto hello  
          Cells.Find(what:=refnumber, After:=ActiveCell, LookIn:=xlFormulas, _
                      lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                      MatchCase:=False, SearchFormat:=False).Activate
  
  f=f+1
  
          hello: Msgbox"There is an error"
  
      loop
  
      endsub
  </code></pre>
  
  <p>The problem is that even if no error is found the message is still getting shown. I want the message box to be shown only when there is an error.</p>