VBA Help with Looping through an Array

[decadence]

HI, I am trying to loop through an array of words, It loops through but doesn't do anything, I know I am probably forgetting something, See code

Dim Rng As range, c As Long, Arr As Variant, I As Integer
'
        Arr = Array("IPN", "VPN", "PartNumber", "Part")
        For i = LBound(Arr, 1) To UBound(Arr, 1)
            Set Fnd = Cells.Find(Arr(c), range("A1"), xlValues, xlWhole, xlByRows, xlNext, False, False)
            If Not Fnd Is Nothing Then
            Set Rng = range(Fnd.Offset(1), Cells(Rows.Count, Fnd.Column).End(xlUp))
        End If
    Next i
        If Fnd Is Nothing Then Exit Sub
    Rng.Select
End Sub

 

[Fluff]

Your looping through with i, but your find arr is c, which will always be 0

For [COLOR=#ff0000]i[/COLOR] = LBound(Arr, 1) To UBound(Arr, 1)
            Set Fnd = Cells.Find(Arr([COLOR=#ff0000]c[/COLOR]), range("A1"), xlValues, xlWhole, xlByRows, xlNext, False, False)

Change one or the other

 

[decadence]

Thanks you Fluff, I knew it would be something as simple as this, Also just realised that I need to move Rng.Select after Set Rng as it loops through and then exits the sub if no words are found even though it may of found 1, Thanks again

 

[Fluff]

Glad to help & thanks for the feedback