すみません、質問の内容を変更します。【VBA リスト操作】

質問

With Worksheets("シート名").Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="該当なし"
End With
というように、VBAでA1のセルに対して、「該当なし」というプルダウン（入力規則）を設定し、「該当なし」がすでに選択された状態、若しくはタイトル的な感じで「該当なし」とセルに表示させる方法をお願いします。

前の質問を削除したいのですができません。
ご了承ください。
よろしくお願いいたします。

回答No.2

ASIMOV · ベストアンサー

＞シートVBAのセレクトチェンジを使っており、無限ループみたいな感じが起こります

Application.EnableEvents = False
　Range("A1").Value = "該当なし"
Application.EnableEvents = True

なら、どうでしょう

お礼

ご回答ありがとうございます。

大変参考になりました。

回答No.1

ASIMOV

Range("A1").Value = "該当なし"

を、追加すれば良いのでは

補足

ご回答ありがとうございます。

シートVBAのセレクトチェンジを使っており、無限ループみたいな感じが起こります。