That's where I went wrong, tried using AND but didn't include the extra
"theRunner <" between each

Cheers

GKeramidas wrote:
untested:

Sub test()
If theRunner < Empty And theRunner < "runner" And theRunner < "scr" Then
Range("H1").Select
Do Until Trim(LCase(ActiveCell)) = theRunner
ActiveCell.Offset(1, 0).Select
Loop
wOutSht.Cells(runnerOSet, "AJ").Value = ActiveCell.Offset(0, -7).Value
End If
End Sub