title: to find string that does not contain specific word
body: <p>I have a code that is going through range A and finding certain string that is having first 6 characters as numeric
  the code is</p>
  
  <pre><code>Sub FindString()
     Dim A As Range, r As Range
     Set A = Intersect(ActiveSheet.UsedRange, Range("A:A"))
  For Each r In A
      If IsNumeric(Left(r.Text, 6)) And InStr(1, r, "Totals:") Then
  
      MsgBox r.Value
  
      End If
  Next r
  End Sub
  </code></pre>
  
  <p>with this code it will return all the cells that is having first 6 characters numeric and having word Totals: in it</p>
  
  <p>but I want to make change in this code that looks through string that is not having word Totals: in it</p>