ONKey

I am moving toward this direction

Sub CH16a()
Dim Txtref As Variable
Txtref = Me.Frame68.ActiveControl.Name
Textref.SetFocus
Controls(Txtref).Value = Txtref.Value & vbNewLine & Sheets("formulas").Range("Z120")
'ActiveControl.Value = ActiveControl.Value & vbNewLine & Sheets("formulas").Range("Z120")
End Sub

but it is still not working