Stop Loop and Get Value

[Benz]

Hi,

I have this loop (see code below) how can I get it to get the value and stop
the loop and move on to the rest of the code which is in the With Doc.

Thank you to anyone that helps,

Happy Holidays.

Ben Z.


With WordDoc

For Each oRow In oTbl.Rows
If oRow.Cells(1).Range.Text = TargetText Then
p = oRow.Cells(1).RowIndex & TextBox1.Text = p
End If
Next oRow

End With
End Sub

 

[David Sisson]

With WordDoc

For Each oRow In oTbl.Rows
If oRow.Cells(1).Range.Text = TargetText Then

'Remove the last '=p' It's not needed.

p = oRow.Cells(1).RowIndex & TextBox1.Text

Exit For

 

[Benz]

Thanks David!

'Remove the last '=p' It's not needed.

Exit For