That works alot better now :-)

The only problem is when it hits a blank cell it stops. As I have
blank cells mixed in with the data, this is a bad thing.

I was thinking that perhaps the loop could use another column that
always has data in it. When that column is blank then the loop stops.
I'm not sure how it works but...

Code:
--------------------

While Column E is not empty
check c
Columns("B:B").Select
Dim c As Range
For Each c In Selection
Select Case UCase(c)
Case "115297"
Range("A" & c.Row).V..............
--------------------


What do you think?


---
Message posted from http://www.ExcelForum.com/