And I've been doing it the hard way... :)

"Jack" wrote:

Rita, this line will fix you right up :)

Selection.BorderAround xlContinuous, xlThin

-Jack



"RitaG" wrote:

Hi.

I'm creating headings dynamically in Excel and am placing a border around
each cell as it's created.
I'd like to be able to border a cell with just 1 Excel constant instead of
having to use 4 - one for each side. Since adding borders, the program has
slowed down considerably. Is there a more efficient way than the one I'm
using now?

'*** Put a border around the heading just added
wshFIC.Cells(iHeadingLine, lLastColumn).Select
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

'*** Change the font for just this cell
With Selection.Font
.Name = "Arial Narrow"
.Bold = True
.Size = 9
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
End With

TIA.
Rita