lcXLS = Sys(5)+Curdir()+'customer.xls' Use customer Copy To (m.lcXLS) Type Xls Use * Line styles #Define xlContinuous 1 #Define xlDash -4115 #Define xlDashDot 4 #Define xlDashDotDot 5 #Define xlDot -4118 #Define xlDouble -4119 #Define xlSlantDashDot 13 #Define xlLineStyleNone -4142 * Border index #Define xlInsideHorizontal 12 #Define xlInsideVertical 11 #Define xlDiagonalDown 5 #Define xlDiagonalUp 6 #Define xlEdgeBottom 9 #Define xlEdgeLeft 7 #Define xlEdgeRight 10 #Define xlEdgeTop 8 * Weight #Define xlHairline 1 #Define xlMedium -4138 #Define xlThick 4 #Define xlThin 2 oExcel = Createobject('Excel.Application') With oExcel .Workbooks.Open(lcXLS) .Visible = .T. With .ActiveWorkbook.ActiveSheet.UsedRange With .Borders .LineStyle = xlDouble .ColorIndex = 5 EndWith With .Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 7 Endwith With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlMedium .ColorIndex = 3 Endwith EndWith EndwithIf you installed VBA help during installation check for a file named VBA_XL*.* or VBAXL*.* under Office folder (location and exact name changes with version. chm or hlp).