以下のような感じ。
┌──────────────────────────────────────┐
│With Selection.Validation                                                   │
│    .Delete                                                     ─初期化    │
│    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _              │
│        Formula1:="1:織田信長,2:豊臣秀吉,3:徳川家康"            ─リスト内容│
│    .InCellDropdown = True                                      ─リスト    │
│    .IgnoreBlank = True                                         ─空欄許容  │
│    .ShowInput = True                                           ┐          │
│    .InputTitle = "コード入力"                                  │ガイド情報│
│    .InputMessage = "コードを入力してください"                  ┘          │
│    .ShowError = True                                           ┐          │
│    .ErrorTitle = "エラー"                                      │エラー情報│
│    .ErrorMessage = "選択肢中の内容のみ入力できます"            ┘          │
│End With                                                                    │
└──────────────────────────────────────┘
リスト内容はカンマ区切りとなる。

以下の指定により、完全に入力を限定的にできるか否かを決められる。
┌──────────────────┬───────────────────┐
│AlertStyle:=xlValidAlertStop        │停止(決められた内容しか入力できない)  │  
├──────────────────┼───────────────────┤
│AlertStyle:=xlValidAlertWarning     │注意(他も入力できる)                  │
├──────────────────┼───────────────────┤
│AlertStyle:=xlValidAlertInformation │情報(他も入力できる)                  │
└──────────────────┴───────────────────┘