Hi Todd,

We are seeing a lot of you in here <vbg.

I think this will do what you want

Option Explicit

Dim cLastRow As Long
Dim i As Long

Private Sub OptionButton1_Click()
cLastRow = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "A") < "" Then
.AddItem Worksheets("Sheet2").Cells(i, "A").Value
End If
Next i
.ListIndex = 0
End With
End Sub

Private Sub OptionButton2_Click()
cLastRow = Worksheets("Sheet2").Cells(Rows.Count, "B").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "") < "" Then
.AddItem Worksheets("Sheet2").Cells(i, "B").Value
End If
Next i
.ListIndex = 0
End With
End Sub

Private Sub OptionButton3_Click()
cLastRow = Worksheets("Sheet2").Cells(Rows.Count, "C").End(xlUp).Row
With ComboBox1
.Clear
For i = 3 To cLastRow
If Cells(i, "") < "" Then
.AddItem Worksheets("Sheet2").Cells(i, "C").Value
End If
Next i
.ListIndex = 0
End With
End Sub

Private Sub UserForm_Activate()
OptionButton1.Value = True
End Sub






--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Todd Huttenstine" wrote in message
...
On UserForm3 I have 1 combobox(ComboBox3) and then 3
Option buttons(Option button 1, 2, and 3). I need it to
where when the user clicks on OptionButton1 and then
clicks the dropdown on ComboBox3, it will list everything
in range A3:A52 on Sheet2. Also, If the user clicks
OptionButton2, and then clicks the dropdown on ComboBox3,
it will list everything in range B3:B52 on Sheet2. And
last, if the user clicks OptionButton3, and then clicks
the dropdown on ComboBox3, it will list everything in
range C3:C52 on Sheet2.

What is the code I need to achieve this?

I need for the code to ignore any empty cells in any of
the ranges so that there are no blank places in the
dropdown box(ComboBox3).

Thanks to anyone who helps.


Todd Hutenstine