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