Hi
just clicking somethere in you sheet should not affect the entries (as
you have to invoke this macro manually). But you may use the following
to leave the numbers negative

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
if cell.offset(0,1).value 0
cell.offset(0,1).value = -1*cell.offset(0,1).value
end if
end if
next
end sub



--
Regards
Frank Kabel
Frankfurt, Germany
"CWit " schrieb im Newsbeitrag
...
Frank,

Its not that all the number do not turn negative they do, but if I
click somewhere on the sheet it toggles Positive then if I click
somewhere again back to negative and so on. Is there anyway to make
it
stay negative at all times?


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