A1:E10のセルの周囲に実線で罫線を引くには以下の様にします。 Sub Sample48() Range("A1:E10").BorderAround xlContinuous, xlMedium End Sub