finde det første tal der er større en 5000 og stille sig i cellen

Public Sub FindRange()
    Dim objCell As Range
   
    For Each objCell In ActiveSheet.Columns("A").Cells
        If objCell.Text = "" Then Exit For
        If objCell.Value > 5000 Then
            objCell.Select
            Exit For
        End If
    Next objCell
End Sub

Det virker perfekt.

Den virker lige efter hensigten.

Tak for hjælpen.

Har du et svar :-)

Velbekomme.