If Sheets(1).Cells(*, *).Interior.ColorIndex = 6 Then みたいな感じでいけるらしい． ColorIndexが6は黄色．ほかに1は黒，2は白，3は赤，4は黄緑，5は青など．HelpでColorIndexを参照すべし．