Need to display results of any cell when selected in a form?

Solution
Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, ByRef Cancel As Boolean)
If Target.Cells.Count > 1 Then Exit Sub
Cancel = True
FormPartial.Show
End Sub

Private Sub CommandButton1_Click()
addy = TextBox1.Value
Range(addy).FormulaR1C1 = TextBox2.Value
Unload Me
End Sub

Private Sub UserForm_initialize()
Me.TextBox1.Value = ActiveCell.Value
End Sub