ActiveSheet.Range("A1").Interior.ColorIndex = 色を表すバリアント値
ActiveSheet.Range("A1").Interior.ColorIndex = xlColorIndexAutomatic
ActiveSheet.Range("A1").Interior.ColorIndex = xlColorIndexNone