title: If any of the cells in a column in a table (MS Word) contains a specific text, display a MsgBox
body: <p>I am trying to do an error-checking code that verifies if some specific cells are completed correctly before running a more elaborate code.</p>
  
  <p>So far, I've written the following code:</p>
  
  <pre><code>Dim tabel As Range
  Set tabel = ActiveDocument.Sections(2).Range
  tabel.Select
  Dim oCel As Cell
  With ActiveDocument.Tables(1).Columns(3)
    For Each oCel In .Cells
     Selection.Find.Execute FindText:="Petent"
      If Selection.Find.Found = False Then
      MsgBox "Intr-un dosar nu este inregistrat Petent"
      End If
     Next
  End With
  tabel.Select
  With ActiveDocument.Tables(1).Columns(3)
    For Each oCel In .Cells
  Selection.Find.Execute FindText:="Creditor"
      If Selection.Find.Found = False Then
      MsgBox "Intr-un dosar nu este inregistrat Creditor"
      End If
  Next
  End With
  tabel.Select
  With ActiveDocument.Tables(1).Columns(3)
    For Each oCel In .Cells
  Selection.Find.Execute FindText:="Debitor"
      If Selection.Find.Found = False Then
      MsgBox "Intr-un dosar nu este inregistrat Debitor"
      End If
  Next
  End With
  </code></pre>
  
  <p>Doing step by step debug, I find that when the specific word is not found in a cell, it skips to the next cell, without displaying the message. </p>
  
  <p>What is the issue in this case?</p>