17 Dec 09

Tags: , , , .
Written by Tom Mazur. No comments

All Borders

Sub main()

    AllBorders range(”g17:h17″)

End Sub

Sub AllBorders(rng As range)

    With rng
        ’style
        .Borders.LineStyle = xlSolid
        ‘none
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        ‘inside
        .Borders(xlInsideVertical).LineStyle = xlSolid
        .Borders(xlInsideHorizontal).LineStyle = xlSolid
        ‘edge
        .Borders(xlEdgeLeft).LineStyle = xlSolid
        .Borders(xlEdgeTop).LineStyle = xlSolid
        .Borders(xlEdgeBottom).LineStyle = xlSolid
        .Borders(xlEdgeRight).LineStyle = xlSolid
    End With

End Sub


Filed under: Borders

Trackback Uri