<div>
Great answer. Thanks Thomas
</div>


<div>
Glad to help. Thanks for the grade.<br />
<br />
Thomas
</div>


Glad to help. Thanks for the grade.

Thomas

<div>
<div class="content wysiwyg-content">
Hi. I need to get information about the border formatting of a cell.<br />
I am using the following code that gets the following results, which is<br />
very different to the information in the macro recorder when<br />
I initially formatted the cell (shown at the bottom)<br />
L = 1<br />
C = -4105<br />
W = 2<br />
<br />
Dim L, C, W As String<br />
&nbsp; &nbsp; L = Selection.Borders(xlEdgeTo<wbr />p).LineSty<wbr />le<br />
&nbsp; &nbsp; C = Selection.Borders(xlEdgeTo<wbr />p).ColorIn<wbr />dex<br />
&nbsp; &nbsp; W = Selection.Borders(xlEdgeTo<wbr />p).Weight<br />
&nbsp; &nbsp; &nbsp; &nbsp;MsgBox W<br />
<br />
<br />
&nbsp; &nbsp; With Selection.Borders(xlEdgeTo<wbr />p)<br />
&nbsp; &nbsp; &nbsp; &nbsp; .LineStyle = xlContinuous<br />
&nbsp; &nbsp; &nbsp; &nbsp; .ColorIndex = 0<br />
&nbsp; &nbsp; &nbsp; &nbsp; .TintAndShade = 0<br />
&nbsp; &nbsp; &nbsp; &nbsp; .Weight = xlThin<br />
&nbsp; &nbsp; End With
</div>
</div>


Hi. I need to get information about the border formatting of a cell.
I am using the following code that gets the following results, which is
very different to the information in the macro recorder when
I initially formatted the cell (shown at the bottom)
L = 1
C = -4105
W = 2

Dim L, C, W As String
    L = Selection.Borders(xlEdgeTop).LineStyle
    C = Selection.Borders(xlEdgeTop).ColorIndex
    W = Selection.Borders(xlEdgeTop).Weight
       MsgBox W


    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

Excel VBA Best way to get border information of  a cell

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.