Try this, 
    MyValue = 0.35

    ActiveWorkbook.Names.Add Name:="Rvalue", RefersToR1C1:=MyValue