Dependent Drop down list with dependant default value for entire column

[ST1309]

Hi I was using JBeaucaire's code to deal with a similar problem to this:

/excel-programming-vba-macros/715111-dependent-drop-down-list-with-dependent-default-value.html

However, I would like to generalise the code such that if any cell is changed in column B the offset cell in column c changes to the first value in its drop down list.
i.e if AggreateSand is changed in cell B7 to Asphalt the cell C7 would show Asphalt, General.

Any help would be much appreciated - many thanks!

[ST1309]

Typically worked it out 2 mins after posted for future reference:

Option Compare Text 'makes macro non-case-sensitive

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

If Target.Column = 2 Then
Application.EnableEvents = False
Select Case Target.Value
Case "AggregateSand": Target.Offset(0, 1).Value = "AggregateSand, General aggregate and sand"
Case "Asphalt": Target.Offset(0, 1).Value = "Asphalt, General"
Case Else: Target.Offset(0, 1).Value = ""
End Select
Application.EnableEvents = True
End If

End Sub

[torachan]

Alternative approach - no data validation - no conditional formatting - no on-sheet formula - no hard coded defaults - alter the tables to give you your choices.