マクロのコードについて

質問

いつも大変お世話になっております。
https://okwave.jp/qa/q9884968.htmlにて、質問した者です。
回答してくださった方のとおりにやってみたのですが、背景の色が消えません。

Sub ボタン1_Click()
If Application.Intersect(Selection, Range("A1:F3")) Is Nothing _
Or Selection.Count > 1 Then
Exit Sub
End If
Application.EnableEvents = False
Selection.Interior.Color = xlNone
Application.EnableEvents = True
End Sub

上記のように教えていただき、コピペしてやってみたのですが、背景の色は変わらなかったです。

私のやり方がだめでしょうか？
マクロのボタンを作成し、コードを入力しました。
エラーも出たので、エラー検索し
https://okwave.jp/qa/q9885232.html
上記も設定済です。

回答してくださった方々には大変失礼なことを聞いているのもわかっています。本当に申し訳ございません。

回答No.1

kkkkkm

ボタンを押したときに
A1:F3の範囲の中で選択されたセルがひとつの場合
選択しているセルの色を無くすという動作で

.Color = xlNoneでいけたのですが
.ColorIndex = xlNoneの方が本来みたいなので

Selection.Interior.Color = xlNone
を
Selection.Interior.ColorIndex = xlNone
に変更してみてください。