Help VBA to populate combo box using a range

[tigersden]

I am trying to populate a second combo box after the first has be changed.
The first combo box is linked to a cell on sheet2, the selected value on sheet2 is used in a vlookup to return a range of points that the chosen grade covers.
eg Grade 1 is chosen, the linked cell on the second sheets value is 1, the vlookup returns a range F5:F10 which is held in cell g20.
I have tried using VBA on change event but am unable to assign the range held in G20 as the combobox's list. This second combo box is only enabled after the first has changed.

I hope this makes some sense

 

[Norie]

What have you tried?

Combobox2.RowSource = Range("G20").Value

 

[tigersden]

Hi Norie,
Iwas trying to use ListfillRange

 

[Norie]

Where is the combobox located?

The code I posted would be for one on a userform, ListFillRange would be the correct property for a combobox from the Control Toolbox.

 

[tigersden]

Hi Norie,
The combo box is on worksheet but it is from the controls toolbox.

The code worked once but since I jave added another select statement it is giving "An Undefined Error" on the line in bold.
Altogether there will be 6 select statements, & six sets of these combo boxes.


Sub DropDown22_Change()
Worksheets("Sheet1").cboPPoint1.Enabled = True
Select Case Worksheets("Sheet2").Range("B4").Value
Case Is = 1
Worksheets("Sheet1").cboPPoint1.Clear
cboPPoint1.RowSource = Range("I4").Value
Case Is = 2
Worksheets("Sheet1").cboPPoint1.Clear
cboPPoint1.RowSource = Range("I4").Value
End Select

End Sub