Hello All,

I am rather stumped. I am making a user-form that in the end generates a chart from the data in the workbook. Since it is to be something the user can set up so they get the chart they want, it requires some comboboxs that will filter what data the chart will show.

There's a top level combobox, then another one underneath that changes its contents according to the value selected in the top one. I've gone through what must have been a dozen or so threads, but none seem to quite get the results I want. Lately I am getting the error 13 type mismatch, among others I have had in the past. Unfortunately the debugger doesn't highlight the offending line, so I have to try and guess.

Private Sub Userform_Initialize()

'Dim Index As Integer
'Index = FeedbackBox.ListIndex

Me.FeedbackBox.List = Worksheets("Data").Range("FeedbackList").Value
FeedbackBox.ListIndex = 0

Dim XAxisBoxRng As String

Select Case FeedbackBox.Value

    Case Is = "Quantity"
        XAxisBoxRng = Worksheets("Data").Range("Table12").Value
        
    Case Is = "Frequency"
       XAxisBoxRng = Worksheets("Data").Range("Table1223").Value
    
    Case Is = "Average"
       XAxisBoxRng = Worksheets("Data").Range("Table1224").Value
       
End Select

XAxisBox.List = XAxisBoxRng
XAxisBox.ListIndex = 0

'Me.YAxisBox.List = Worksheets("Data").Range("Table20").Value

End Sub
The little text pieces are just "switched off" code until I get to grips with the first problem.

Any help will be greatly thanked.

Regards