1: 2: 3: 4: 5: 6: 7:
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger) If KeyCode = 13 Then Worksheets("GUI").Cells(25, 3) = TextBox2 End If End Sub