bordes a celdas en Runtime

hola, Adhemir !

... asignarle determinado tipo de borde a una celda o rango de celdas en runtime.

un ejemplo...
Sub Bordes()
With ActiveCell
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 3
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ColorIndex = 5
End With
With .Borders(xlEdgeLeft)
.LineStyle = xlDot
.ColorIndex = 7
End With
With .Borders(xlEdgeRight)
.LineStyle = xlDash
.ColorIndex = 8
End With
End With
End Sub

saludos,
hector.