writing VBA to make TAB cycle through text boxes

matpj36

Hi all,

I have created several text boxes on my word document and wanted to have TAB cycle through them

It kind of workd, but the moment there is something in the text box, it stops working.

Can someone tell me what I am doing wrong:

[code]Private Sub PROSPECTNAME_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim TxtBox As Object

If KeyCode = vbKeyTab Then

ActiveDocument.PROSPECTCODE.Activate

End If

End Sub[/code]