Need Help Coding ComboBoxes

Hey Kev,

Yes they are linked to the cells below them, and I was trying to activate a range because I have no clue what I am doing. However, I have managed to make this work by using the tab key with the following code throughout each combobox;

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox1.Index), Shift
End If

End Sub

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox2.Index), Shift
End If

End Sub

Private Sub ComboBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox3.Index), Shift
End If

End Sub

Private Sub ComboBox4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox4.Index), Shift
End If

End Sub

Private Sub ComboBox5_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox5.Index), Shift
End If

End Sub

Private Sub ComboBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox6.Index), Shift
End If

End Sub

Private Sub ComboBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox7.Index), Shift
End If

End Sub

Private Sub ComboBox8_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox8.Index), Shift
End If

End Sub

Private Sub ComboBox9_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox9.Index), Shift
End If

End Sub

Private Sub ComboBox10_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox10.Index), Shift
End If

End Sub

Private Sub ComboBox11_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox11.Index), Shift
End If

End Sub

Private Sub ComboBox12_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox12.Index), Shift
End If

End Sub

Private Sub ComboBox13_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox13.Index), Shift
End If

End Sub

Private Sub ComboBox14_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox14.Index), Shift
End If

End Sub

Private Sub ComboBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox15.Index), Shift
End If

End Sub

Private Sub ComboBox16_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox16.Index), Shift
End If

End Sub

Private Sub ComboBox17_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox17.Index), Shift
End If

End Sub

Private Sub ComboBox18_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox18.Index), Shift
End If

End Sub

Private Sub ComboBox19_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox19.Index), Shift
End If

End Sub

Private Sub ComboBox20_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox20.Index), Shift
End If

End Sub

Private Sub ComboBox21_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyTab Then
NavOle Me.OLEObjects(Me.ComboBox21.Index), Shift
End If

End Sub

Private Sub NavOle(ByRef OleActive As OLEObject, Shift As Integer)

If Shift = 1 Then
If OleActive.Index = 1 Then
Me.OLEObjects(Me.OLEObjects.Count).Activate
Else
Me.OLEObjects(OleActive.Index - 1).Activate
End If
Else
If OleActive.Index = Me.OLEObjects.Count Then
Me.OLEObjects(1).Activate
Else
Me.OLEObjects(OleActive.Index + 1).Activate
End If
End If

End Sub

Hi.
Just an aged gents view.
You would be better familiarising yourself with 'userforms' they make coding a whole lot easier.
Also when used on the 'sheet' ActiveX also tends to be unpredictably if you intend placing the app on various other computers.
torachan.