I take it RJ wants to press tab and for it to jump to each cell in this order
("A1", "A2", "A3", "C1", "C2", "C3")
Maybe we can take over the tab key
Sub auto_open()
Application.OnKey "{tab}", "taborder"
End Sub
Sub auto_close()
Application.OnKey "{tab}"
End Sub
then something similar to what you have seems to work
Sub taborder()
Static intPrevPos As Integer
Static boolAlreadyRun As Boolean
Dim avarTabOrder As Variant
Dim intPos As Integer
avarTabOrder = Array("A1", "A2", "A3", "C1", "C2", "C3")
If Not boolAlreadyRun Then
intPrevPos = LBound(avarTabOrder)
boolAlreadyRun = True
End If
Set Target = Selection(1, 1)
Application.EnableEvents = False
If intPrevPos = UBound(avarTabOrder) Then intPrevPos = LBound(avarTabOrder) - 1
If Target.Address <> avarTabOrder(intPrevPos + 1) Then _
Range(avarTabOrder(intPrevPos + 1)).Select
intPrevPos = intPrevPos + 1
Application.EnableEvents = True
End Sub
Bookmarks