Hi Andrew
Try
Sub FindThem()
Dim Rfound As Range
Dim iLoop As Integer
Set Rfound = Range("A1")
For iLoop = 1 To WorksheetFunction.CountIf(Range("A1:Y50"), "Value1")
Set Rfound = Range("A1:Y50").Find(What:="Value1", After:=Rfound, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Rfound.Offset(0, 1) = "Value2" Then
Rfound.Range("A1:B1").Select
Exit For
End If
Next iLoop
End Sub