エクセルＶＢＡで入力規則を設定するには？

質問

22歳男性です。
エクセルVBAについて質問があります。

シート上にあるボタンをクリックすると、特定のセルに入力規則を追加するというプログラムを作っています。
以下のコードのように記述しているのですが、まったくうまくいきません。
何が悪いのかご指摘いただけたらと思います。

■コード■
Private Sub CommandButton1_Click()

With Range(\"b2\").Validation
.Add Type:=xlValidateWholeNumber, Operator:=xlBetween, Formula1:=10, Formula2:=20
End With

End Sub

回答No.1

n-jun

With Range("B2").Validation
.Delete
.Add Type:=xlValidateWholeNumber, Operator:=xlBetween, Formula1:="1", Formula2:="10"
End With
こうですかね。

お礼

ありがとうございます。
無理でした。