want my code to find all data needed

i need my code to find all data i seach for , my code is working well but find just one target
[code]Private Sub CommandButton8_Click()
Dim valFIND As Range
Dim iRow As Long
Dim sB As String

For iRow = 2 To 500
If Cells(iRow, "E") = "1" Then
sB = Cells(iRow, "B").Value
On Error Resume Next
Set valFIND = Sheet4.Cells.Find(sB, LookIn:=xlValues, LookAt:=xlWhole)
If Not valFIND Is Nothing Then
Exit Sub
End If
End If
Next iRow

MsgBox "Value " & sB & " was not found"
End Sub[/code]
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!