VBA Cascading dropdown for user form

Hi All, VBA newbie here.

I am trying to create a code for a userform where the options for combobox2 will be dependent on the option chosen in combobox1, and the options in combobox3 will depend on the chosen option on combobox2. I think this should be possible, but can't find any code anywhere that helps.

Combobox1 = Transaction Type, i.e. income, expenditure, transfer
Combobox2 = if combobox1 = expenditure, direct debit, standing order or card payment
Combobox3 = if combobox2 = direct debit, mortgage, car, etc.
if combobox1 = income, salary, interest, etc.

Thanks in advance for any help!

assume sheet1 , range a2 to down have your combobox1 data then

Private Sub UserForm_Initialize()
ComboBox1.RowSource = Sheets("sheet1").Range("a2", Range("A2").End(xlDown)).Address
End Sub

combobox2 will populate based on combobox1.value

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
    Case Is = "Income": ComboBox2.RowSource = Sheets("sheet1").Range("b2", Range("b2").End(xlDown)).Address
    Case Is = "Expenditure": ComboBox2.RowSource = Sheets("sheet1").Range("c2", Range("c2").End(xlDown)).Address
    Case Is = "Transfer": ComboBox2.RowSource = Sheets("sheet1").Range("d2", Range("d2").End(xlDown)).Address
End Select
End Sub

Great, thanks for the speedy reply!

I've added the code that you've suggested, and pleased to say that it works exactly as I had hoped! Only one query though - is it possible to change the "expenditure", "income" and "transfer" in combobox2 to cell references in case I ever change the text in future?

Hi

change the code (comboxbox1_Change) to below

Private Sub ComboBox1_Change()
    ComboBox2.RowSource = Sheets("sheet1").Range(Range("b2").Offset(0, ComboBox1.ListIndex), _
    Range("b2").Offset(0, ComboBox1.ListIndex).End(xlDown)).Address
End Sub

now you can have whatever values of combobox1 in cells A2 down
and comboxbox2 values B2 to down, C2 to down ...... so on....