A cursory look suggests that using FINDNEXT (look in vba help index) may be
useful.

--
Don Guillett
SalesAid Software

"John" wrote in message
...
I am trying to set a range (SRCH) and find each entry in that list on
another
page... this is basically a filter with up to 25 entries... here is the
code

Sub applist()
Dim cp As Worksheet
Dim inpt As Worksheet
Set cp = ThisWorkbook.Sheets("cp")
Set inpt = ThisWorkbook.Sheets("Inputs")
Application.ScreenUpdating = False
rw1 = inpt.Range("i41").End(xlUp).Row
srch = inpt.Range("i16", "i" & rw1)

For z = LBound(srch) To UBound(srch)
Dim wksToSearch As Worksheet
Dim rngToSearch As Range
Dim rngFound As Range

Set wksToSearch = cp
wksToSearch.Select

For Each rng In wksToSearch.Range("f10:f5000")
Set rngToSearch = wksToSearch.Range("f10:f5000")
Set rngFound = rngToSearch.Find(What:=inpt.Range("i" & 16 +
counter).Value, LookIn:=xlFormulas, LookAt:=xlWhole, MatchCase:=False)
If rngFound Is Nothing Then
rngFound.EntireRow.Hidden = True
Else
Do
rngfirst = rngFound
Set rngFound = rngToSearch.FindNext(rngFound)
End If
Loop Until rngFound.Address = rngfirst.Address Or counter 10000

counter = counter + 1

Application.ScreenUpdating = True
End Sub