hi, hoang, try to change this line in Richard's code:

Target.Copy Destination:=Range("C22")
to this one:

Range("C22") = Target.Value