Hi
sorry the VBA code got interrupted. Try

sub divide_all()
Dim rng as range
Dim cell as range
dim divisor
set rng = selection
divisor = 1000
application.screenupdating=false
for each cell in rng
if isnumeric(cell.value) then
cel.value=cell.value/divisor
end if
next
application.screenupdating=true
end sub

-----Original Message-----
Hi
I'm looking for a simple vba code to devide the whole
column with a
spesific value?

example
devide column A with 1000 without any temporary cell and
exclude the
empty cell in the column.

best regards
Rune


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

.