excel - 次のVBAマクロが失敗する理由を理解できません

Question

特定のセルから始まる列のすべてのセルのドロップダウンリストを作成しようとしています。以下は私が作成したものです。

Public Sub Dropdown()
    Dim dvList As String

    dvList = "Option1, Option2, Option3"

    With ActiveSheet.Range("C25").Resize(50, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula:=dvList
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 End Sub

この行に問題があります：

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula:=dvList

このコードを実行すると、次のようになります。

Run-time error '1004':

Application-defined or object-defined error

なぜこれが起こっているのかわかりません、これがそれを行う方法であるように思われます。誰かが私のエラーを指摘してもらえますか？

Answer 1

に変更してみてくださいFormula1:=dvList