Dim excelApplication AsNew Excel.Application
Dim excelWorkBook As Excel.Workbook = excelApplication.Workbooks.Add()
Dim excelWorkSheet As Excel.Worksheet = excelWorkBook.Worksheets.Add
Dim cellStart = excelWorkSheet.Cells(2, 3)
Dim cellEnd = excelWorkSheet.Cells(10, 20)
With excelWorkSheet.Range(cellStart, cellEnd).Interior
'.Pattern = Microsoft.Office.Interop.Excel.Constants.xlSolid
'.PatternColorIndex = Microsoft.Office.Interop.Excel.Constants.xlAutomatic
.Color =Color.Yellow
'.TintAndShade = 0
'.PatternTintAndShade = 0
EndWith