Hi
try
sub foo()
dim rng as range
dim cell as range
set rng = Range("B2:B100")
for each cell in rng
if cell.calue = "SEL Book" then
cell.offset(0,1).value = -1*cell.offset(0,1).value
end if
next
end sub

--
Regards
Frank Kabel
Frankfurt, Germany
"CWit " schrieb im Newsbeitrag
...
Hello I'm familiar with other code but I'm trying to learn the lingo
of
Excel/ VBA. I'm trying to write a condition statement that would
allow
me to scan column B2 down and search for "SEL Book" if it finds those
words I would like it to change the corresponding number in Column C
to
a negative number. Logically put it would look like this.

If B2 through B etc. = "SEL Book" then C etc. = negative number...


Thanks for helping a Newbie!


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