Variable Combo Box Range

Hi I am having trouble linking 2 combo boxes. I would like to populate the seccond combo box by altering the range. This alteration would be triggered through a chnage in the index provided by the first combo box I have. I have tried IF statements and Case scenarios but none seem to work. The code below is for the fisrt combo box I have. It outputs an index of 1,2,3,4 in cell D3. Ideally combox box 2 had 4 different ranges it is based upon, one for each index. Thanks in advance for any support!

Private Sub ComboBox1_Change()

ActiveSheet.Shapes("ComboBox1").Select
Selection.ListFillRange = "L2:L5"


End Sub