FillColor and Border Help in excel

Trying to fill a color (yellow) and set a border (bottom) on the first row in an excel sheet from a vbscript. I don't get any errormessages with the fill color, but neither does the color appear. With the borders I get the errormessage "unknown runtime error"...can someone help?

----------------

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Open("h:\csvtoexcel\dust.xls")

With objExcel

'------ FillColor ------
.Range("A1").Select
With objExcel.Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

'------ Set Borders ------
.Range("A1").Select
.Selection.Borders(xlDiagonalDown).LineStyle = xlNone '<--- error message "unknown runtime error"
.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
.Selection.Borders(xlEdgeTop).LineStyle = xlNone
With objexcel.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.Selection.Borders(xlEdgeRight).LineStyle = xlNone
.Selection.Borders(xlInsideVertical).LineStyle = xlNone

end with

Figured out the color thing myself... replaced xlSolid with 1, and whoops....the first row is yellow

You can't use the 'xl' Constants in the code, you need to replace them with their corresponding numbers ...
For example:

Thanks!!