così:

ObjWB.ActiveSheet.Cells(Row, Col).Interior.ColorIndex = 2
'bianco

ObjWB.ActiveSheet.Cells(Row, Col).Interior.ColorIndex = 36
'giallo chiaro

etc...