Error With VBA "Borderaround"

[Ark68]

I am trying to simply put a border around a cell. I'm not sure if this is the right way to go about doing it, but this is the line of code I'm using:

.Cells(dcomprow, 2).borderaround _
                Linestyle:=xlcontinuous, Weight:=xlThin, colorindex = 3

I get an error in the VBA compilor with "colorindex" ... Expected: named parameter.

What must I do to correct the error? I would like to use an RGB value instead of a color index. How would that be done?

 

[johnnyL]

How about:

    Dim rng As Range
    Set rng = Cells(dcomprow, 2)
'
    With rng.Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .Color = RGB(255, 0, 0)
    End With

 

[BSALV]

colorindex := 3

 

[Peter_SSs]

I would like to use an RGB value instead of a color index. How would that be done?

Combining bits of both previous answers:

.Cells(dcomprow, 2).BorderAround LineStyle:=xlContinuous, Weight:=xlThin, Color:=RGB(255, 0, 0)

 

[Ark68]

Thank you all for your contributions.

Can anyone explain why when this line is executed ...

.Range("B" & dcomprow).BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, Color:=RGB(255, 0, 0)

Only three of the four sides of the cell are receiving the border? This seems to be common with cells when the adjoining cell has a border. If the adjacent cell has no border, it takes the red border.
For example, the range being "B4", "C4" has a black border around it. The red order does not occupy the line between B4 and C4. B3 has no border, so the line between B3 and B4 takes the red border.

 

[johnnyL]

Glad we could help.

 

[BSALV]

which border has priority ? if the other one is xltick and this one is xmedium, that one wins ???

 

[Ark68]

The red border (BorderAround) is xlmedium. The adjacent cells are xlThin. I assume then, that the red BorderAround would take priority if priority is based on line weight.

 

[Ark68]

Seems that I have found the solution. I didn't have the issue once the line weight was changed to xlMedium.
Thanks again all.

 

[Peter_SSs]

Just a comment: It may not be relevant to what you are doing but your question was about "BorderAround" and yet the marked solution would apply borders to all vertical/horizontal borders around or within the relevant range. So if it was being applied to a range of more than one cell, you would get more than just BorderAround.