Default value within data validation given data in cell

Question

Trying to get to display the default value of a data validation list on a cell contingent on the value (city in this example) input on a different cell.

Data and sample below:

For example, when I am filling-in the name and city of residence of someone in Madrid, I would like that cell "B3" to display the "Default Language" as specified in "Default Table".

Guidance will be greatly appreciated

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

'Prerequisites
'Select the City range (from Madrid to Pontevedra) and name it rngCity using Formulas > Define Name
'Select the Language range (from Spanish to Gallician) and name it rngLanguage using Formulas > Define Name

Dim dblFind As Double

If Not Intersect(Target, Range("B2")) Is Nothing Then 'Detects if B2 has changed
    dblFind = WorksheetFunction.Match(Range("B2").Value, Range("rngCity"), 0)
    Range("B3").Value = Range("rngLanguage").Cells(dblFind)
End If

End Sub