I am using this:
Dim i As Integer
Dim a As Integer
Dim k As Integer
Dim aSheet() As Variant

aSheet = Array("Telxon Repair History", "3870 Repair History", _
"SF51 Repair History")

For k = 0 To UBound(aSheet())
Sheets(aSheet(k)).Select
Range("A1").Select
i = Cells(Rows.Count, "A").End(xlUp).Row
For a = 0 To i
If ActiveCell.Offset(a, 0).Value = recpo.Text Then
ActiveCell.Offset(a, 1).Value = recdate.Text
Exit Sub
End If
Next a
Next k


My recpo (The PO number  I am looking for) is in Column A, which it
finds on the right page. If I have the offset column at "1" it will
put the recdate in column H. If I change it to 4, it puts it in
column J.