Worksheet event comparing contents of dropdown boxes to range- grateful for any help

[nzamparo]

Looking for help with the following situation, am grateful for any help:

Worksheet "A":

A1: Dropdown Box (Options are Appetizers, Soups, Entrees, Desserts)
A2: Dropdown Box (Same as above)
A3: Dropdown Box (Same as above)
...

Worksheet "B":

A1: Appetizers
A2: Soups
A3: Entrees
A4: Desserts

I would like to be able to compare the contents of all of the filled dropdown boxes from Worksheet "A" (A1:A3...) to each of the text strings in Worksheet "B" (A1:A4).

If none of the filled dropdown boxes equal one of the text strings in Worksheet "B" (A1:A4), I would like a message to display (i.e. "Have you considered Appetizers?" should display if Appetizers is not selected in a dropdown box).

If none of the dropdown boxes are selected or at least one of the dropdown boxes from Worksheet "A" (A1:A3...) equal each of the text strings in Worksheet "B", no message should display.

Can anyone offer some advice? I will post the code I've managed to compile below as a starting point.

 

[nzamparo]

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE = "A11:A4"

If Target.Cells.Count > 1 Then Exit Sub

If Range("A1:A4").Value = "Appetizers" Then
MsgBox "Have you considered Appetizers?"
' If sales rep has not created order entry from the Appetizer product category, display a message.

If Range("A1:A4").Value = "Soups" Then
MsgBox "Have you considered Soups?"
' If sales rep has not created order entry from the Soups product category, display a message.

If Range("A1:A4").Value = "Entrees" Then
MsgBox "Have you considered Entrees?"
' If sales rep has not created order entry from the Entree product category, display a message.

If Range("A1:A4").Value = "Desserts" Then
MsgBox "Have you considered Desserts?"
' If sales rep has not created order entry from the Desserts product category, display a message.

Else
' Sales rep has created order entry from each product category, no message displayed.


End If
End Sub