‘while the cell has a value:

While Len(Range(“A” & CStr(LSearchRow)).Value) > 0

‘If value in column A = “DC, Y or X”, copy entire row to Errors
If Range(“A” & CStr(LSearchRow)).Value = “DC” Or _
Range(“A” & CStr(LSearchRow)).Value = “Y” Or _
Range(“A” & CStr(LSearchRow)).Value = “X” Then

‘Select row in mySheet1 to copy
Rows(CStr(LSearchRow) & “:” & CStr(LSearchRow)).Select
Selection.Copy

‘Paste row into Errors sheet in next row
Sheets(“Errors”).Select
Rows(CStr(LCopyToRow) & “:” & CStr(LCopyToRow)).Select
ActiveSheet.Paste

‘Move counter to next row
LCopyToRow = LCopyToRow + 1

‘Go back to MIDS sheet to continue searching
Sheets(“mySheet1″).Select

End If

LSearchRow = LSearchRow + 1

Wend

but, is there a way i can look all values for “DOG”

it should return
30
125
9250

Is that possible??