BorderAround Method

Microsoft Excel Visual Basic

expression.BorderAround(LineStyle, Weight, ColorIndex, Color)

expression    Required. An expression that returns one of the objects in the Applies To list.

LineStyle   Optional XlLineStyle. The line style for the border.

XlLineStyle can be one of these XlLineStyle constants.
xlContinuous default.
xlDash
xlDashDot
xlDashDotDot
xlDot
xlDouble
xlLineStlyeNone
xlSlantDashDot
xlLineStlyeNone

Weight   Optional XlBorderWeight. The border weight.

XlBorderWeight can be one of these XlBorderWeight constants.
xlHairline
xlMedium
xlThick
xlThin default

ColorIndex   Optional XlColorIndex. The border color, as an index into the current color palette or as a XlColorIndex constant.

XlColorIndex can be one of these XlColorIndex constants.
xlColorIndexAutomatic default
xlColorIndexNone

Color   Optional Variant. The border color, as an RGB value.

Remarks

You must specify either ColorIndex or Color, but not both.

You can specify either LineStyle or Weight, but not both. If you don't specify either argument, Microsoft Excel uses the default line style and weight.

This method outlines the entire range without filling it in. To set the borders of all the cells, you must set the Color, LineStyle, and Weight properties for the Borders collection. To clear the border, you must set the LineStyle property to xlLineStyleNone for all the cells in the range.

Example

This example adds a thick red border around the range A1:D4 on Sheet1.

Worksheets("Sheet1").Range("A1:D4").BorderAround _
        ColorIndex:=3, Weight:=xlThick