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
                Sheet4.Activate
                valFIND.Select
                Exit Sub
            End If
        End If
    Next iRow
    
    MsgBox "Value " & sB & " was not found"
End Sub