Borders in Excel 1

[AgentM]

Can somebody give me the code for drawing Borders around a cell in a worksheet in Excel?
I have tried recording a macro.
But it gives errors.

Any help appreciated.

 

[FengShui1998]

' Color = 1
' Style = 1
' Wt = 4 (xlThick) or 2 (xlThin)
XEdge = 8 'Top
XEdge = 9 'Bottom
XEdge = 7 'Left
XEdge = 10 'Right

Actv.Range(Xrange).Borders(xEdge).Color = 1
Actv.Range(Xrange).Borders(XEdge).LineStyle = 1
Actv.Range(Xrange).Borders(XEdge).Weight = 4

fengshui_1998

 

[AgentM]

Thank you very much. That worked

 

[AgentM]

How did you come across the numeric equivalent of
XEdge for Top, Bottom etc...?

Thank you

 

[FengShui1998]

AgentM,

Try this:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q239930

fengshui_1998

 

[Guest_imported]

Thank you