指定セルの表範囲(CurrentRegion)に罫線を格子状に引く【ExcelVBA】

見栄えをよくするために表範囲に格子状に罫線を指定する場合があります。
毎度頭の中から、コードを思い出すのも手間なのでコピペで使うように記事に起こしました。

指定セルの表範囲(CurrentRegion)に罫線を格子状に引くコード
注意点
関連記事

指定セルの表範囲(CurrentRegion)に罫線を格子状に引くコード

Public Sub sample()

    '■セルA1を含むセルの表に対して格子状の罫線を引く。(Range)
    Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous

    '■セルA1を含むセルの表に対して格子状の罫線を引く。(Cells)
    Cells(1,1).CurrentRegion.Borders.LineStyle = xlContinuous

    '■変数rngを含むセルの表に対して格子状の罫線を引く。
    rng.CurrentRegion.Borders.LineStyle = xlContinuous

End Sub