I was able to automate a file in excel with seems great as bold title etc however I just want to know how I can apply a border line
here is the code
Thank's a lot

local loExcel, oSheet
loExcel = CREATEOBJECT("Excel.Application") && Create the Excel object
opexcel = FULLPATH("myfile.xls")
loWorkbook = loExcel.workbooks.open("&opexcel") && parameters to open the file from the right directory
loExcel.Visible = .T. && display Excel


oSheet = loExcel.ActiveSheet

lnRow = 5

lnRow = 1
lnCol = 1
oSheet.Range([A1]).Select
oSheet.Cells(lnRow,lnCol).Value = [Brand]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3

lnCol = lnCol + 1
* oSheet.Range([B1]).Select
oSheet.Cells(lnRow,lnCol).Value = [Model]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3

lnRow = 4
lnBeginRange = lnRow