Using VBA to automatically select a value in another list or combo box

Hi I have two list boxes that I'd like to be able to select the value in one list and it automatically selects the value in the second list. but I'd also like to be able to change the value from the default selection in list 2 - so initially it might have one value but the user opts for a different value.

Column A contains a cell (possibly with data validation list or combo box - which ever will work with this!) that will have Yes / No / Maybe
Column B contains a drop down list with Yes / No / Maybe values

If Yes is selected in column A then select yes from the list in column B
If Maybe then select maybe from the list in column B

Values in Column B need to be able to be changed by the user (e.g. although Yes = Yes there may be circumstances where it actually needs to be Maybe etc)

This is a simplified version of what I am trying to do and there will be a number of cells this needs to be applied to with different outcomes, I believe this needs to be done in VBA as my current approach of using a list box / formula means that the formula is over written when the list box is used, so if value in Column A is then changed the changes don't flow through the worksheet.

Example attached!Book1.xlsx

Brilliant! Thanks - If I add a third combo box with Values A B and C can I add that into the Sub?

I.e. If combobox2.value = "Yes" then combobox3.value = "B"

I've moved on a little from the above and tried to adapt it

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'B9 is the linked cell for the first combobox

Select Case Range("B9")
Case "Yes"


ComboBox2.Value = "Banana"
Case "No"


ComboBox2.Value = "Pear"
Case Else

ComboBox2.Value = "Apple"

End Select
End Sub

but it still isn't happy. Ideally the second combobox would actually be a data validation drop down but whoever I can get working I'll be happy with!

Incidentally I managed to link a list box to a combo box with this code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'B3 is data validation list

Select Case Range("B3")
Case "Yes"

Sheets("Sheet1").ComboBox1.Value = "Thursday"
Sheets("Sheet1").ComboBox2.Value = "Banana"
Case "No"

Sheets("Sheet1").ComboBox1.Value = "Friday"
Sheets("Sheet1").ComboBox2.Value = "Pear"
Case Else
Sheets("Sheet1").ComboBox1.Value = "Saturday"
Sheets("Sheet1").ComboBox2.Value = "Apple"

End Select

'B9 is data validation list
Select Case Range("B9")
Case "Yes"

Sheets("Sheet1").ComboBox3.Value = "Banana"
Case "No"
Sheets("Sheet1").ComboBox3.Value = "Pear"
Case Else

Sheets("Sheet1").ComboBox3.Value = "Apple"
End Select
End Sub

I've tried both of these on the 'ThisWorkbook' and 'Sheet1' locations in the VBA window

Are they in the correct place?