"Tabbing" code crashing xl2002 WinXP

[Matt Jensen]

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

 

[Tom Ogilvy]

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

 

[Matt Jensen]

Once again, great thanks Tom
Matt