Sub 罫線_外枠_太線を引く()

    Range("B2:C4").BorderAround Weight:=xlMedium

End Sub