By the help of this wonderful forum I have the following code, which searches a column across all worksheets in a workbook for certain terms, and if matches are found denote such in another column on the same row.
Sub findAll2()
Dim i As Long, j As Long, wList As Variant, curSht As Worksheet, x As Integer
Dim sh As Integer
wList = Array("a", "b", "c") 'search list
For sh = 1 To Worksheets.Count
Set curSht = Worksheets(sh)
j = 2
Do Until curSht.Cells(j, 1) = ""
On Error Resume Next
If Not Application.WorksheetFunction.Match(curSht.Cells(j, 1), wList, 0) = xlErrNA Then
If Err.Number <> 1004 Then
curSht.Cells(j, 2) = "Check"
End If
End If
j = j + 1
Loop
Next
End Sub
what i would want is an alternative to the "match" function, one that would find all the cells 'containing' a search phrase (not only if the cell 'exactly matches' the search phrase)
i know you guys can do it.
Bookmarks