presume this is part of a larger macro?

select case range("A1").value
case 1000: range("c4").value=range("a1").value
case 25000:range("c5").value=range("a1").value
case 100000:range("c6").value=range("a1").value
end case


"walt" wrote in message
...
I would like to send certian range numbers to a specific cell from a
single
cell such as

you would enter the number in a1
if the number is 501-1000 it would go yo c4
if the number is 1001-25000 it would go yo c5
if the number is 25001-100000 it would go yo c6

and so on