Find, Offset, Enter Number
 

I need some code that will go through an entire column and
find either of two names (Bob or Joe), go two columns over
(same row), and enter the number 9.

It would be nice if it could do this for all the
worksheets as the name appears in the same column in each
sheet.



TIA!

Find, Offset, Enter Number
 

something like this for the your range
for each ws in worksheets
ws.select ' test without this line first
for each c in range("b2:b200")
if ucase(c)="BOB" or ucase(c)="JOE" then c.offset(,2)=9
next
next
--
Don Guillett
SalesAid Software

"BUBBA" wrote in message
...
I need some code that will go through an entire column and
find either of two names (Bob or Joe), go two columns over
(same row), and enter the number 9.

It would be nice if it could do this for all the
worksheets as the name appears in the same column in each
sheet.



TIA!

Find, Offset, Enter Number
 

This might get you started:

Range("A:A").Find("Joe", , , xlWhole).Offset(0, 2).Value = 9

Alan Beban

BUBBA wrote:
I need some code that will go through an entire column and
find either of two names (Bob or Joe), go two columns over
(same row), and enter the number 9.

It would be nice if it could do this for all the
worksheets as the name appears in the same column in each
sheet.



TIA!