エクセルVBAで罫線を引く

Sub 罫線()
    Worksheets(1).Range("B2", "B6").Borders.LineStyle = xlContinuous
End Sub