01-05-2012, 03:03 PM
Code:
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.Workbooks.Open "Excel Location"
Set objSheet = xlApp.ActiveWorkbook.Worksheets(1) ' Take Active WorkBook
objSheet.Cells(1,1).Interior.Color = vbRed
objSheet.Cells(2,1).Interior.Color = vbGreen