I want to use the change event of the worksheet object, add code that
will take the numeric value entered in the cell, for instance, 55678
and translate the number to 556.78 automatically. I have code that
works, but I keep getting a type mismatch error when I convert the
number to a string and back again. If I don't convert, I get
something like this, 556..78. If I convert, i get a type mismatch,
however the code continues to work and I get 556.78, only I get a type
mismatch error.

Dim v1 as String
Dim v2 as String
Dim v3 as String

v1 = Right(target.value,2)
v2 = Left(target.value,Len(target.value)-2)
v3 = v2 & "." v1
target .value = v3

any suggestions are appreciated.

stan