Excel VBA - 特定のセル変更イベント時に、特定の範囲に色付けをしたい

Question

下記のコードを書きましたが、■で「インデックスが有効範囲内にありません（エラー番号：９）」と出てしまいます。

詳しい方、なぜか教えて頂けると助かります。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("B20") Then
        Range("B20").Interior.ColorIndex = RGB(225, 225, 225) ■
    Else
        Exit Sub
    End If

    
End Sub

Answer 1

RGB値で指定する場合は、ColorIndexではなくColorを使います。
ColorIndexはシートで色を選択するときに表示されている色（Excelのバージョンによって異なると思いますが60個くらい）を選ぶときに使います。
参考

Comments

[koyamashinji]

回答ありがとうございます。
Color = RGB(225, 225, 225)に変更し、下記のコードを書きましたが
エラーはでなくなりましたが、F1セルに色塗りされません。
何も反応がないようです・・・

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C20") Then
Range("F1").Interior.Color = RGB(255, 255, 0)
Else
Exit Sub
End If
End Sub

[radames1000]

C20に入力したらF1の色が変わります。
Range("C20")ではなくRange("F1")が意図したものでしょうか。

[ttyp03]

どこに入力したらどこを変えたいのかを明確にしてください。
今のコードはC20に入力したらF1を変えるコードです。

[mako1972]

試しましたが動作しました・・。
Thisworkbookではなく、sheet1・sheet2などのイベントに記載していると思いますが。。。

[koyamashinji]

皆様ご返信ありがとうございます
C20に入力したらF1を変えるコードを書いています。

Application.EnableEvents = Falseになっていたようで、
イベントが発生しなかったようです。
解決致しました。

Answer 2

誤
ColorIndex = RGB(225, 225, 225)
正
Color = RGB(225, 225, 225)
と思われます。
'-------------------------------------------
(追記)
Range("F1").Interior.Color = RGB(255, 255, 0)
のみ動かして下さい。色が付く筈です。
ブレークポイントをIf Target = Range("B20") Then部へセットし実行、停止位置らかF8(デバッグ→ステップイン)にて行単位で動かすと、この原因わかると思われます。
フレークポイントはF9にて設定できます。