Try this:
Sub Validation_Example()
Dim Choices As String
' ******************This code tests the value of cell A1******************
Select Case Cells(1, 1)
Case 1: Choices = "a,b,c"
Case 2: Choices = "c,d,e"
Case "yourText": Choices = "a,c,e"
Case Else: Choices =...