Hi wnureport

You have 2 choices;
1: You can do a sort first
2: You can do a macro
Sub test()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 2 To rowcount
check_val = Range("a" & i).Value
If check_val < Empty Then
'do something
End If
Next
End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=556573