BorderAround behaving strangely

[Purgatorium]

I was experimenting on adding borders around some named ranges, when I encountered a bit of an oddity

I know that selecting and color filling a named range works, but BorderAround is behaving unexpectedly.

When I process BorderAround, the results are that some border lines of the range area are either missing or the lines are intermittently spaced between cells, resulting in a dashed line that's usually on one or two sides of the named range. I also noticed that if I change the color value, some of the side lines of the borderaround area may have a different colors?

Interestingly enough, this behavior is consistent for each named range processed even after closing and reopening excel.

Private Sub CommandAgrmnt_Click()
Dim Agrmnt          As String

Agrmnt = Me.ComboBox.Value

'Range(Agrmnt).Select

Worksheets("Sheet1").Range(Agrmnt).BorderAround _
LineStyle:=xlContinuous, Weight:=xlThick, ColorIndex:=3

'Worksheets("Sheet1").Range(Agrmnt).Interior.ColorIndex = 3

End Sub

[BadlySpelledBuoy]

I tried that code in a mocked up workbook and it works fine. Puts thick red lines around whichever named range is selected in a combobox. The line is solid, no bits missing...
So unable to replicate your issue, perhaps you could post a desensitized version of your workbook so we could see it happening there?

BSB

[Purgatorium]

I rebuild it from scratch thinking that perhaps there was a possible conflict, but I'm still getting odd results. I did notice one good thing, If I remove the background borders prior to processing, it will work. However the intent is to over-post / replace portions on the the background borders with a named ranges. The background serves as a reference.

[Purgatorium]

I did find a work around using the macro routine, albeit it is longer than "BorderAround", it does work.

Private Sub CommandZone_Click()
Dim Zone          As String

Zone = Me.ComboBox.Value

    Range(Zone).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Color = -16777024
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Range("A1").Select
End Sub