セルにリストの入力規則を設定する

Dim str As String 'リストに登録する文字列
str = "hoge,fuga,piyo"
With Range("A1").Validation
    .Delete    '入力規則をリセット
    .Add Type:=xlValidateList, Formula1:=str
    .ShowError = False  '規則外の入力時のエラー表示
End With