how to update Options under a drop down list when a linked drop down list is changed?

[hrithik]

I have a drop down list in $A$1 with options (fruits, Cake, Drinks)

Another drop down list in $B$1 shows these groups {apple, orange}, {cheese,chocolate}, and {soda,water} depending on the option selected in $A$1.

I'm using name ranges and Indirect() to link these two drop downs.

The problem I face is;
Firstly "fruits" is selected in $A$1 and "apple" in $B$1
Now if I select "Drinks" in $A$1, $B$1 still shows "apple".
I want $B$1 to update itself automatically whenever $A$1 cell is changed.

Is this possible?

 

[AlphaFrog]

Right-click on the sheet tab with the drop-down lists. Select "View Code" from the pop-up menu. Paste the code below in the VBA edit window.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then Range("B1").ClearContents
    
End Sub