var Header: IXLSRange; WarningCells: IXLSRange; begin Header := Workbook.Sheets[1].Range['A1', 'G1']; Header.Interior.Color := $00D9EAD3; Header.Interior.Pattern := xlPatternSolid; WarningCells := Workbook.Sheets[1].Range['G2', 'G20']; WarningCells.Interior.Pattern := xlPatternGray25; WarningCells.Interior.PatternColor := $000000FF; end;