Hello

This is probably quite simple but I can't quite get mine to work.

I have a userform which at the moment has 2 comboboxes (soon to be 3 once I sort this code). The second box will be determined upon the selection of the first.

The first combobox currently equals a cell reference by way of 'RowSource': PLHeading1

This being: Turnover, Direct Costs and Overheads


When one is selected I would like a list of other names to appear in combobox 2

Here is my code:

Private Sub frmPL_Input_Initialize()
    If ComboBox1.Value = "Turnover" Then
        ComboBox2.Value = Sheets("Headings").Range("B4:B6").Value
    Else
    If ComboBox1.Value = "Direct Costs" Then
        ComboBox2.Value = Sheets("Headings").Range("B7:B11").Value
    Else
    If ComboBox1.Value = "Overheads" Then
        Combo2.Value = Sheets("Headings").Range("B12:B28").Value
    End If
    End If
    End If
End Sub
Could someone explain why this doesn't work?

For reference, B4:B6 = cell reference PLTurnover2 B7:B11 = PLDirectCosts2 B12:B28 = PLOverheads2