Macro para copiar valor desde fórmula

[rolito]

Hola, necesito una macro que me escriba el valor 500 según lo que diga la celda A10; por ej:

Si en A10 tengo la fórmula =R10, que la macro escriba el valor 500 en celda R10
Si en A10 tengo la fórmula =J20, que la macro escriba el valor 500 en J20

Necesito hacerlo con macro, muchas gracias!

 

[snb_]

sub snb()
  Select case cells(10,1).formula
  Case "=R10" 
     cells(10,18)=500
  Case "=J20"
     cells(20,10)=500
  End select
End sub

 

[Greg Truby]

Sub foo()
    On Error Resume Next
    Range([a10]) = 500
End Sub