VBA 入力規則設定(Validation)のエラーに関して

Question

実現したいこと

入力規則設定を使用して、セルにプルダウリストを作成したいと考えていますがエラーが出てしましました。

前提

入力規則設定を使用して、セルにプルダウリストを作成したいと考えています。

発生している問題・エラーメッセージ

エラーメッセージ

実行時エラー1004　アプリケーション定義またはオブジェクト定義のエラーです。.Add Type:=～の部分を実行すると、エラー起きます。

該当のソースコード

dropDownValues = Split("30,35,40,45,50,60,65,70,75,80,85,90,95,100") ' ドロップダウンリストを設定する

If Target.Address = "$C$2" Then    ' C2セルに数字を入力したときにドロップダウンリストを設定する
    
  Range("E11:E45").Validation.Delete 'D3セルからD12セルまでのドロップダウンリストを削除
  Range("E11:E45").ClearContents     '数字も削除
  Range("E11:E45").Borders.LineStyle = xlLineStyleNone
  
  a = Range("C2").Value
  
    For a = 1 To a - 2

        u = a * 2 + 12
        
            ActiveSheet.Unprotect
            
            Application.ReferenceStyle = xlA1
        
            With Range("E" & u).Validation
                .Delete
                .Add Type:=xlValidateList, _　　→ここでエラーおきます。
                AlertStyle:=xlValidAlertStop, _
                Formula1:=Join(dropDownValues, ",")　
                
                '赤枠にする
                Range("E" & u).Borders.Color = RGB(255, 0, 0)
                 
            End With
            
            ActiveSheet.Protect
            
    Next a
    
    
 End If

試したこと

上記プログラムを作成し、実行しましたが、エラー1004が出てしまします。
・シートが保護されている
・参照形式がR1C1になっている
この2つが原因かなと思い、付け加えてみたのですが、エラーが出てしまいます。

他、原因が分かればいいのですが、エラーが起きるときと起きないときがあります。
どなたかわかる方おられませんか？よろしくお願いいたします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[bebebe_]

シート上にフォーカスがない場合も同様のエラーがでるという情報がありました。
「Range("E" & u).Validation」の前に「Range("A1").Select」等を入れた場合はどうですか？

[taroooo]

できました！！ありがとうございます。
一度セルを選んだ状態でないと、エラーおきてしまうのでしょうか？
理由が分かれば、教えていただきたいです。

[bebebe_]

エラーがでる詳細な原因が探しても見つからないですね。
「Validation.Delete」はシート上の図形等が選択されていても問題ないみたいですが「Add」の場合はエラーになってしまうようです。

[taroooo]

ありがとうございます。
助かりました。

Answer 1

一度、他のセルを選択した状態で、入力規制を行うと、エラーでなくなりました。

Range("A1").Select　'A1を選択→これを入れることで、解決しました。

With Range("E" & u).Validation
.Delete
.Add Type:=xlValidateList, _　　
AlertStyle:=xlValidAlertStop, _
Formula1:=Join(dropDownValues, ",")