Here is my code:

Private Sub cmbcc_Exit(ByVal Cancel As
MSForms.ReturnBoolean)
CCFCLC.cmbfc.Clear
Worksheets("CodeGrid").Activate
Range("A1").Select
Do While True And ActiveCell.Row < 75
If Worksheets("Coding").Range("A1").Value =
ActiveCell.Value Then
Exit Do
End If
ActiveCell.Offset(1, 0).Select
Loop
If Worksheets("Coding").Range("A1").Value <
ActiveCell.Value Then
Exit Sub
End If
ActiveCell = ActiveCell.Offset(0, 1).Select
Do While ActiveCell.Column < 50
If ActiveCell.Value < "" And LCase
(ActiveCell.Value) < "no" Then
CCFCLC.cmbfc.AddItem ActiveCell.Value
End If
ActiveCell.Offset(0, 1).Select
Loop

End Sub

My problems a 1) it makes the first drop down option "-
1"????

It changes the first value in the appropriate
cooresponding column on the "CodeGrid" sheet to "True"???