Excel VisualBasic Script

Sub evalDemo()
     Evaluate("A1").value = 10
     [A1].value = 10
End Sub