I am seaching through a column of data and when I find a cell that has
matching data I want to insert data into other columns in the same
row.

Also How do I define a blank cell in my search? I don't want any
insertions past the last row of data as I'm thinking if I have the
"blank" cell case it will keep on inserting data into the other columns
for ever.


Code:
--------------------
Columns("B:B").Select

For Each C In Selection
Select Case UCase(C)
Case "115297": then insert into A "22" and insert into I "23"
Case "276534": then insert into A "27" and insert into I "93"
Case "blank?": then insert into A "999" and insert into I "999"

End Select
Next C
--------------------



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