excel VBA对特定背景颜色的单元格进行赋值

Sub 宏1()
'
' 宏1 宏
'
'先选中要替换的区域，将特定背景颜色的单元格都赋值为"√"
'
    Dim lColor As Long
    '
    'lColor = InteriorColor(Range("G2"))'
    lColor = 10213316
    'Worksheets("sheet1").Range("B1").Value = lColor
    
    For Each rCell In Selection.Cells
        'Worksheets("sheet1").Range("C1").Value = rCell.Interior.Color
        If rCell.Interior.Color = lColor Then
            rCell.Value = "√"
        End If
    Next
End Sub
'获取单元格的背景颜色
Function InteriorColor(CellColor As Range)
    Application.Volatile
    InteriorColor = CellColor.Interior.Color
End Function