How to determine visible decimal places

[Guentjo]

In VBA, how can I determine how many decimal places are visible in the activecell?

let's say the true value of the cell is "1.23", but I have it fomatted to "0.0" so what I see is "1.2"

I'd like the code to return a value of "1" because 1 digit is visible to the right of the decimal point.

 

[erik.van.geit]

What's a kilometer?

format your rows to 0,6 inch each (height)
print an entire column
put page 1 on the floor
put page 2 next to it
(take care short sides should touch each other )
page 3
...
till last page
that's a kilometer