Attribute VB_Name = "testcellborder4"
Sub ƒeƒXƒg()
    Dim border1 As Borders

    Set border1 = Range("B2").Borders
    border1.LineStyle = xlContinuous
    border1.Weight = xlMedium
    border1.ColorIndex = 3

    Range("B4:D7").Borders.LineStyle = xlContinuous
End Sub