Yes it can - use this...

Sub FindCell()
Dim cell As Range
myValue = Range("E8").value
For Each cell In Range("A1:K1")
If cell.Value < myValue Then
cell.Select
Exit Sub
End If
Next
End Sub

Trevor

"Kasper" wrote:

Hi,

thank you for your swift answer.
Do you know if the number(8000) can be replaced by a variable, eg.
cell E8 so the number which it enters is linked to the number i cell
E8?