Sub Macro1()
'
' Macro1 Macro
'

'
    ' add
    For x = 1 To Range("A65536").End(xlUp).Row '
        If Cells(x, 1) = 2180880 Then '
            Cells(x, 1).Interior.ColorIndex = 3
        End If
        
    Next x    
    
    'With Selection.Interior
    '    .Pattern = xlSolid
    '    .PatternColorIndex = xlAutomatic
    '    .Color = 65535
    '    .TintAndShade = 0
    '    .PatternTintAndShade = 0
    'End With
End Sub