its work after added double quotes before and after the string value
chr(34) = "
shpObj2.CellsU("Prop.SiteName").FormulaU = chr(34) + "Test" + chr(34)