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

With RANGE.Validation
    .Delete             '既に設定されている入力規則を削除
    .Add Type:=xlValidateList, Formula1:="hoge,fuga,piyo"
    .ShowError = False  '規則外の入力時のエラー表示
End With