Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
Dim bBackwards As Boolean


Select Case KeyCode
''' These are the only keys we care about.
Case vbKeyTab, vbKeyReturn, vbKeyDown, vbKeyUp
Application.ScreenUpdating = False
''' Determine if we need to move backwards.
bBackwards = CBool(Shift And 1) Or (KeyCode = vbKeyUp)
''' In Excel 97 must select cell before activating another
control.
If Application.Version < 9 Then Sheet1.Range("A1").Select
''' Activate the appropriate control based on key(s) pressed.
If bBackwards Then
TextBox3.Activate
Else
TextBox2.Activate
End If
Application.ScreenUpdating = True
End Select
End Sub


add similar code for each control. It goes in the sheet code module.

"Hoyos" wrote in message
...
Oh ok. You know whats coming next!!!
Bob.......... what would be the code then!!!!?
--
Hoyos


"Bob Phillips" wrote:

No you need code.


"Hoyos" wrote in message
...
I have a worksheet which has several textbox. Is there a way to tab
through
the textboxes without having to write a macro code?
--
Hoyos