Excelのマクロで特定のセルに罫線を引きたい

質問

Excelのマクロで特定のセルに罫線を引きたいのですが、
自分で実行したマクロを確認すると長過ぎてとても見づらいです。
それで調べて下記のようにまとめてみたのですが、
2つのシートをグループ選択する段階で止まってしまいます。

Dim 最終行 As Integer
最終行 = (Range("F65536").End(xlUp).Row)

Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
ActiveWindow.LargeScroll Down:=1

Range("F1:F" & 最終行).BorderAround LineStyle:=xlNone, _
Weight:=xlThin, _
ColorIndex:=xlAutomatic

　 With Selection.Borders(xlInsideVertical)
End With

どちらのシートも同じ列の最終行まで範囲選択することに変わりありません。
シンプルで簡単な書き方はないでしょうか？
どうかよろしくお願い致します。

回答No.1

merlionXX · ベストアンサー

LineStyle:=xlNone　では線が無いことになってますよ。
止まったのではなく線がひかれなかったのです。

罫線についてはこのページが参考になるのではないでしょうか。
http://officetanaka.net/excel/vba/cell/cell07.htm

お礼

merlionXXさん、どうもありがとうございました。
きちんと線が引けた上に1行にまとまりました！
これからもどうかよろしくお願い致します。