Range Change

[Aaron]

I would like to have code to select a range of cells and change any cell
value that is <0 to 0.

Thanks,
Aaron

[Tom Ogilvy]

Sub changetoZero()
for each cell in selection
if isnumeric(cell) then
if cell.value < 0 then cell.value = 0
end if
Next
end sub

--
Regards,
Tom Ogilvy


"Aaron" wrote:

> I would like to have code to select a range of cells and change any cell
> value that is <0 to 0.
>
> Thanks,
> Aaron