Hi Everyone,

I am a real novice and am having a difficult time with coding. I
agreed to make an Excel program to track adverse drug experiences for
work and I would like to fill a ComboBox on a form I created with data
from a single column on a worksheet.

Here is the coding for my form:

Private Sub ComboBox1_Change()
Dim i As Long
Dim S1 As Worksheet

Set S1 = Sheets("DataEntry")

S1.Select
Range("A2").Select
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
UserForm6.ComboBox1.AddItem S1.Cells(i, 1).Value
Next i
End Sub


Is there something goofy with my coding?! It seems to run alright, but
there are no values listed in the drop-down box. PLEASE HELP!!! I've
wasted too much time with something that is probably pretty easy to
solve.

Thanks,
Jeff