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

Thanks,
Aaron

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