Hi Rory

i entered the code as follows but its still active
[VBA]Option Explicit
Private Sub UserForm_Activate()
TextBox1 = 1#
TextBox2 = 0#
txtTurnoverIncl.SetFocus
Application.OnKey "+{tab}", ""
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
For i = 0 To 35
cmbRoyalty.AddItem Format(i / 100, "0%")
Next i
Application.OnKey "+{tab}", ""
TextBox1.Value = 1#
txtTurnoverIncl = TextBox1
TextBox2.Value = 0
cmbRoyalty.Text = TextBox2
txtTurnoverIncl.SetFocus

End Sub[/VBA]

Your thoughts
Darren