Do okna Immediate v editoru VBA si napiš?activecell.Interior.Colornebo?activecell.Interior.ColorIndex