Hi Bill
I dont know if this is the best way to do this or not but this routine will work
Code:
Lastrow = Range("A1").End(xlDown).Row
Range("I1").Select
bok =false
For I = 1 To Lastrow
If ActiveCell.Formula = "60" Then
bok = True
Exit For
End If
ActiveCell.Offset(1, 0).Select
Next I
ive tested this and it finds the value the only assumption ive made is that all your rows in column A are filled up till the last row of data i hope this is of some help to you
David