Sub SearchingdownTheSelection()
for each cell in selection
if cell.Value = "particular" then
set cell1 = cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End Sub

replace selection with a specific range if you wish

for each cell in Range("B2:B200")

as an example.

--
Regards,
Tom Ogilvy

"Reggie" wrote in message
...
I am searching down a column for a particular value and if found, I want
to
check the cell to the immediate right to see if its empty. If it is, I
want
to
insert a text value. If the cell to the right has a value already in it, I
want to move to the next available empty space to the right and put in
value. Any help would be greatly appreciated.