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
どちらのシートも同じ列の最終行まで範囲選択することに変わりありません。
シンプルで簡単な書き方はないでしょうか?
どうかよろしくお願い致します。
お礼
すみませんね 質問しなおします。