ExcelVBAのコードを若干修正したいです。 以下のコードは、指定した範囲の中で、条件付き書式で色がついているセルをクリアするというコードです。 修正したい点としましては、条件付き書式で赤色RGB(255, 0, 0)のもの"以外"を削除するようにしたいのですが（赤色のものは消したくない）、 どこを修正すればよいでしょうか。 ーーー Sub 条件付き書式色消し() Dim r As Range, rng As Range On Error Resume Next Set rng = Range("P9:DQ152").SpecialCells(xlCellTypeAllFormatConditions) If rng Is Nothing Then MsgBox "条件付き書式の設定が見つからない" Exit Sub End If For Each r In rng If r.DisplayFormat.Interior.Color <> vbWhite Then If r.HasFormula Then r.Formula = "" End If End If Next MsgBox "削除しました" End Sub ーーー よろしくお願い申し上げます。