Combobox Rowsource select Case Excel VBA

Thanks for showing it: the select case is working as it should. But I want do more: I have 1 Combobox: Shows Fruit, Vegetabel and Drinks. and when i click on the first combobox I want see the same row 2-12 in the other combobox in ONE row. when i click on the 2. combobox and choose for example "apple" i want see "cabage" and "orange joice" in the other 2 comboboxes at the same time is this possible with comboboxes? If yes how? If i the 2. combobox choose coconut, I want see at the same row in the other 2 combobox at the same time 1. combobox: strawberry, 3. combobox: Mountai dew and so on and so on. Then: If i click with the enter button on coconut I want that opens another userform is explaining the coocnut and then close: what you want todo back to coconut or choose another fruit or drink?

thanks razak

How if we want Change the year