Thanks for taking the time to read my question.

I have 4 combo boxes. Based on data on my sheet, the combo boxes
ListFillRange changes. The ListFillRange can be either 1 row that includes 2
colums, or any number of rows that include 2 columns.

My problem is, when I choose either the first or last item in the list,
click away from the combo box and click back in the combo box, the value
dissappears. This does not happen for any other values. This is consistent
across all 4 combo boxes.

Any ideas why this may happen?

Here is the code for one of the combo boxes (all combo box code is the
same... save references)

CODE:
-------------------------------------------
Private Sub ComboBox9_Change()
If ClosingDontRun = True Then Exit Sub

If Sheets("Flock Sheet").ComboBox7.Value < BeforeUpdateComboValue Then
JustGotFocus = False
End If

If JustGotFocus = True Then Exit Sub

If Sheets("Code").Range("K5").Value < "" Then
Sheets("Flock Sheet").ComboBox14.Enabled = True
UpdateFeed = True
UpdateFeedRequirements
End If
End Sub

---------------------------------------------------------------

Private Sub ComboBox9_GotFocus()
JustGotFocus = True
BeforeUpdateComboValue = Sheets("Flock Sheet").ComboBox7.Value
If ClosingDontRun = True Then Exit Sub
If Sheets("Flock Sheet").Range("J15") = "NONE" Then
Sheets("Flock Sheet").ComboBox9.ListFillRange = "Code!$X$9:$Y$9"
Else
x = 9
Do Until Sheets("Code").Cells(x, 24).Value = ""
If Sheets("Code").Cells(x, 24).Value < "" Then
x = x + 1
End If
Loop
Sheets("Flock Sheet").ComboBox9.ListFillRange = "Code!$X$9:$Y$" & x - 1
End If
End Sub

----------------------------------------------------------

Thanks again for the help.

Brad