hi all,

the reason that c1<a1*b1 is because a1 contains characters that must be
evaluated first before getting its sum. (eg. 25+3*1) u see this * do not let
excel evaluates it automatically, but using evaluate function in vba let
this
possible.

anyway I have figured it out as follows:

Dim Rang As Range, Rang As Range
Set Rang = Active
Set Rang = Active.Offset(0, 1)
Rang.Value = Evaluate(Rang.Value)

many thanks