I've tried it.
I should be like the example below to work.

Thank you!
/Lennart

Set ExcApp = CreateObject("excel.application")
ExcApp.DisplayAlerts = True
Set ExcWB = ExcApp.Workbooks.Add
Set Xls = ExcWB.Worksheets(1)

Xls.Range("B3:N3").Select
ExcApp.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
ExcApp.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
ExcApp.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With ExcApp.Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
ExcApp.Selection.Borders(xlEdgeBottom).LineStyle = xlNone
ExcApp.Selection.Borders(xlEdgeRight).LineStyle = xlNone
ExcApp.Selection.Borders(xlInsideVertical).LineStyle = xlNone
ExcApp.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone