xx = netWT("3x(20x20 ml)") Range("A1").Value = netWT("3x(20x20 ml)") Range("A1").Value = netWT(Range("E4").Value)