Sub 罫線の色を指定する②()

    With Range("B2:C3")
        .Borders(xlEdgeTop).Color = RGB(255, 0, 0) '赤色'上
        .Borders(xlEdgeBottom).Color = RGB(255, 0, 0) '赤色'下
        .Borders(xlEdgeRight).Color = RGB(255, 0, 0) '赤色'右
        .Borders(xlEdgeLeft).Color = RGB(255, 0, 0) '赤色'左
        .Borders(xlInsideVertical).Color = RGB(255, 0, 0) '赤色'中の縦
        .Borders(xlInsideHorizontal).Color = RGB(255, 0, 0) '赤色'中の横
    End With
    
End Sub