Sub 指定条件のセルを塗りつぶす()

    指定条件 = "abc"
    
    For Each セル In ActiveSheet.UsedRange 'すべてのセルを順番に回る
    
        If セル = 指定条件 Then 'セルが条件に一致していたら
            
            セル.Interior.Color = RGB(200, 200, 200) '色を付ける
            
        End If
    
    Next セル

End Sub