It's looking like the issue is the format of cell contents. Obviously
the application is treating the keyboard entry "1/2" as "½" which is
different in terms of binary value and so unexpected results are going
to occur. It might be better to copy the expected cell contents as I
did here and paste that between the double quotes in your code.

<FWIW
I'd probably use naming that relates to the values I'm looking at so...

v1, v2, i1, i2

Range("151") = v1: Range("150") = v2
Range("152") = i1: Range("153") = i2

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc