Pressing Enter to submit userform

[ipbr21054]

Evening.

I have this code but not sure if its correct for me.

Private Sub UserForm_Click()
If KeyCode = vbKeyReturn Then
Call CommandButton1
End Sub

What im trying to do is enter values into my userform then when i press the enter button the values are sent from userform to worksheet.

The above works but i need to press enter twice,this is why maybe its incorrect for me or i did something wrong

Thanks

 

[RayFrye]

Might be a place to start.

In the Userform code area:
Private Sub CommandButton1_Click()
Range("A1").Value = Me.SomeFieldName.value 'from the UserForm
Range("A2").Value = Me.SomeOtherFieldName.value 'from the UserForm
End Sub

 

[ipbr21054]

Thanks,
I have to enable the return properties in the code for it to work by only pressing enter once