VBAでセルの色を変更するには

質問

ある範囲のあるセルの色のみ一気に変更したいのですが、自力で調べた結果はセルに色を付ける以下の記述までしか分かりませんでした。
例えば、現在のベージュ（40）を赤（3）に変更するにはどう記述すればよいのでしょうか？
宜しくお願いします。

Sub Macro1()
Range("A1:N180").Select
With Selection.Interior
.ColorIndex = 40
.PatternColorIndex = xlAutomatic
End With
End Sub

回答No.2

BLUEPIXY

#1>特定の色のセルのみ色を変更したいのです。
Dim x As Range
For Each x In Range("A1:N180")
If x.Interior.ColorIndex = 40 Then x.Interior.ColorIndex = 3
Next

お礼

Nextの前にEnd Ifを追加して実行したらＯＫでした。
ありがとうございました。

回答No.1

BLUEPIXY

40 を 3 にしてみてはどうでしょうか

補足

ある範囲内には、様々な色のセルが混在しています。
その中で特定の色のセルのみ色を変更したいのです。
これだと範囲内すべてが真っ赤になってしまいます。^o^
ありがとうございました。