I assigned a formula to Range(D210), but I cann't see the formula result in the spreadsheet, what I can do is only show the result by using msgbox. So how can I show my formula result in the spreadsheet Thanks so much!

Private Sub CommandButton1_Click()

Worksheets("MMS_RSP_Tonnes").Range("D210").FormulaR1C1 = "=MMS_RSP_GSV!R[0]C[0]*1000/GSVperTonne!R[0]C[0]"

Dim A As Variant

A = Worksheets("MMS_RSP_Tonnes").Range("D4").Value

MsgBox A

End Sub