"Tabbing" code crashing xl2002 WinXP

Howdy
Put 2 control toolbar text boxes on a worksheet named Textbox1 and
TextBox2.
Then in the code for the same sheet put this code:

Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
If KeyCode = 9 Then
If Shift > 0 Then
'nothing
Else
Worksheets("Sheet1").Range("A1").Activate
TextBox2.Activate
End If
End If
End Sub


When not in design mode, you click in TextBox1 and hit the 'tab' key
xl2002 on WinXP crashes for me.

Anyone know any code that will work on both 97 and 2002 for tabbing
between boxes?
Thanks
Matt

I could reproduce it in Excel 2002, Win 2000

This worked: (using KeyUp)
Private Sub Textbox1_Keyup(ByVal KeyCode As MSForms.ReturnInteger, ByVal
Shift As Integer)
If KeyCode = 9 Then
If Shift > 0 Then
'nothing
Else
ActiveCell.Activate
TextBox2.Activate
End If
End If
End Sub

--
Regards,
Tom Ogilvy


"Matt Jensen" <[email protected]> wrote in message
news:[email protected]...
> Howdy
> Put 2 control toolbar text boxes on a worksheet named Textbox1 and
> TextBox2.
> Then in the code for the same sheet put this code:
>
> Private Sub Textbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
> ByVal Shift As Integer)
> If KeyCode = 9 Then
> If Shift > 0 Then
> 'nothing
> Else
> Worksheets("Sheet1").Range("A1").Activate
> TextBox2.Activate
> End If
> End If
> End Sub
>
>
> When not in design mode, you click in TextBox1 and hit the 'tab' key
> xl2002 on WinXP crashes for me.
>
> Anyone know any code that will work on both 97 and 2002 for tabbing
> between boxes?
> Thanks
> Matt
>

Once again, great thanks Tom
Matt