Hi Lucas,

This was a weird one. Eventually got it to work with the following:


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
If KeyCode = 13 Then
    KeyCode = 0
    Sheet1.Range("A65536").End(xlUp).Offset(1, 0) = Me.TextBox1.Value
    Me.TextBox1 = vbNullString
    Me.TextBox1.SetFocus
End If
End Sub
HTH