vba获取单元的背景颜色

Sub 宏1()
'
' 宏1 宏
'

'
    'Cells(7, 2).Interior.ColorIndex
    Worksheets("sheet1").Range("B1").Value = InteriorColor(Range("G2"))
    
End Sub
Function InteriorColor(CellColor As Range)
Application.Volatile
InteriorColor = CellColor.Interior.Color
End Function