Using an array to search active sheet - arrays

Question

I have a worksheet which is updated regularly with details of duplicate records from a database.
I am trying to create a macro which searches for particular records however as I am new to Excel VBA I am struggling.
The code I currently have is as follows:
there are more names (21 to be precise but to save time I have removed these)
Dim rg As Range
Dim lnglastrow As Long
Dim intnamemax As Integer
Dim strName() As String
intnamemax = 21
ReDim strName(1 To intnamemax)
strName(1) = "Bob Smith"
strName(2) = "Rhys Jones"
strName(3) = "Rebecca Hickling"
lnglastrow = ActiveSheet.UsedRange.Rows.Count
For Each rg In Range("A2:A" & lnglastrow)
For i = 1 To intnamemax
Set c = rg.Find(strName(i), LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "Proxy Candidate Found at " & found.Address
Else
MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!"
End If
Next i
Next
End Sub
the Macro will run however when testing I get the msgbox no proxy candidates found despite there being an entry for one of the names.
I am struggling to figure out where I have gone wrong and would appreciate any help.

Answer 1

You need to pull the false return out of the loop, Or you will get at least 20 false even if one matches.
And you do not need the exterior loop as the FIND will look at the whole range as one.
Dim lnglastrow As Long
Dim intnamemax As Integer
Dim strName() As String
Dim fnd As Boolean
intnamemax = 21
ReDim strName(1 To intnamemax)
strName(1) = "Bob Smith"
strName(2) = "Rhys Jones"
strName(3) = "Rebecca Hickling"
lnglastrow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To intnamemax
Set c = Range("A2:A" & lnglastrow).Find(strName(i), LookIn:=xlValues)
If Not c Is Nothing Then
MsgBox "Proxy Candidate Found at " & c.Address
fnd = True
Exit For
End If
Next i
If Not fnd Then
MsgBox "No Proxy Candidates Found ", vbOKOnly, "Success!"
End If
End Sub