Workbook.Worksheets[1].Range['A1', 'C10'].Interior.Pattern := xlGrid; Workbook.Worksheets[1].Range['A1', 'C10'].Interior.PatternColor := RGB(255,0,0);