You need to replace

Range("F11:F200") = ListBox1.Text
with
Range("F11:F200") = ListBox1.List

If your range has more rows than list items you will get #N/A in those cells

ChasAA

"Benz" wrote:

Sorry here is the code I have.

Private Sub ListBox1_Click()

End Sub

Private Sub obMonths_Click()
ListBox1.RowSource = "Sheet1!Months"
End Sub
Private Sub obCars_Click()
ListBox1.RowSource = "Sheet1!Cars"
End Sub
Private Sub obColors_Click()
ListBox1.RowSource = "Sheet1!Colors"
End Sub

Private Sub OKButton_Click()
Range("F11:F200") = ListBox1.Text
Unload Me
End Sub


"Benz" wrote:

I built a userform where the user selects an ObjectButton and in a listbox
(depending on whats selected) A list of data shows up. My main Goal is to
get all of that data to goto the first available cell of a certain column.
Currently (see code below) all I can get it to do is whatever specific
text/data out of the listbox data is selected repeats in the given cells. I
am new to all of this, and would appreciate any help or easier way to
accomplishing. Thank You in advance for anyone that responds.