Two ways you can use Evaluate to generate a reference to a Range object, and assign a value to that object
Sub evalDemo() Evaluate("A1").value = 10 [A1].value = 10 End Sub