Restrict Cells To List Of Words

DATA VALIDATION IN MY CODE

Below is my code which looks at Table1 and converts the cell to the appropriate colour when the cell equals the Case

What i would like to do is also have the Case be Data Validation anything else error


Private Sub Worksheet_Change(ByVal Target As Range)

Dim rRow As Range

Dim icolor As Integer
Dim ifont As Integer

With Application
.CellDragAndDrop = False
.CutCopyMode = False
End With