Search a string for a specific text value from cells

I have a list of information in column A of a worksheet. I want to check each cell, to see if it is contained within a string, and if so display a msg box"found"

Originally Posted by FDibbins

without seeing what you are working with...try =if(isnumber(search()),"Found",""), copied down

Attached a sample workboot. I need to search, Sheet1 column A, and go row by row checking if the text value found there is found within a predefined string.

Sorry, its in VBA so here is what I've come up with:

Set CBws = Worksheets("Sheet1")
Dim testvalue As String



For i = 3 To 143
testvalue = Worksheets("Sheet1").Range("A" + i).Value

  If InStr(1, testvalue, ConnectorNum, vbTextCompare) = True Then
    MsgBox "Insert Found"
    Else
    MsgBox "Insert not found"
  End If
  
Next i

ConnectorNum is a string that I am searching in. It is defined earlier. This above code doesn't work however, I get type mismatch on the testvalue line..

Any ideas?

Few errors

Sub test()

Set CBws = Worksheets("Sheet1")
Dim testvalue As String



For i = 3 To 143
   testvalue = Worksheets("Sheet1").Range("A" & i).Value

    If InStr(1, testvalue, "ConnectorNum", vbTextCompare) > 0 Then
       MsgBox "Insert Found"
    Else
      MsgBox "Insert not found"
    End If
    
Next i
End Sub

Originally Posted by AB33

Few errors

Sub test()

Set CBws = Worksheets("Sheet1")
Dim testvalue As String



For i = 3 To 143
   testvalue = Worksheets("Sheet1").Range("A" & i).Value

    If InStr(1, testvalue, "ConnectorNum", vbTextCompare) > 0 Then
       MsgBox "Insert Found"
    Else
      MsgBox "Insert not found"
    End If
    
Next i
End Sub

This is helpful, thanks! I got it to work.