>>loExcel.range([A1]).Select >>>>not tested at all
>With Selection.Borders(xlEdgeLeft) > .LineStyle = xlContinuous > .Weight = xlThin > .ColorIndex = xlAutomatic > End With > With Selection.Borders(xlEdgeTop) > .LineStyle = xlContinuous > .Weight = xlThin > .ColorIndex = xlAutomatic > End With > With Selection.Borders(xlEdgeBottom) > .LineStyle = xlContinuous > .Weight = xlThin > .ColorIndex = xlAutomatic > End With > With Selection.Borders(xlEdgeRight) > .LineStyle = xlContinuous > .Weight = xlThin > .ColorIndex = xlAutomatic > End With>
With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = xlAutomatic End With:o)