[RESOLVED] Excel automation borders on a cell

[el84]

This is a copy of my post in VB6. I am looking for a VB6 solution
Using late binding I have a subroutine to set the font aSize of cell aRange on a sheet named aFile, thus

Code:

Private Sub aCellFontSize(aFile, aRange, aSize)
Set excelWorkbook = excelApp.Workbooks.Open(aFile)
excelApp.Range(aRange).Font.Size = aSize
excelWorkbook.Save
excelWorkbook.Close
End Sub

This code does work!
I would like the syntax in the same type of structure to enable me to pass a Border (say to the bottom edge). Tried and working code much appreciated -- late binding to allow app to be used on machines with different versions of Excel without any changes.

[el84]

This was resolved in the Vb6 and earlier board.