List box tabbing

Hello,

I posted this thread here:

Tabbing through list boxes - Page 2

and received some excellent help from Rick Rothstein. However, the thread kept getting buried so I decided to come over here. I hope that is ok.

I am trying to take this code that Rick gave me, and invert it to where I can tab from a cell B14 to activate ListBox5. I have tried several times to do this on my own, but can't figure it out.

Code:

---

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = vbKeyTab Then
    Me.ListBox2.Activate
  End If
End Sub

---

also, I would like to take this code, and make tabbing dependent on the outcome. If ListBox 6 becomes enabled tab there, if not tab to ListBox8.

Code:

---

Private Sub ListBox5_Click()
Dim IsYes As Boolean
IsYes = Me.ListBox5.Value = "Yes"
Me.ListBox6.Enabled = IsYes
Me.ListBox7.Enabled = IsYes
End Sub

---

Could you please attach sample file and make your query more understandable so may be someone would help you. :confused::confused::confused: