Thanks Tom for the quick response. I have another question. what if I wanted
to search another sheet to find a particular value? for example

On sheet1 I enter a value and I want to find that value on sheet2 and then
basically see if the cell to the right is empty if so put in a value. If its
not empty move another space to right and put in a value. Sorry I didn't
clarify this before.


"Tom Ogilvy" wrote:

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.