【VBA】最終行に色を付ける

Sub 最終行色付け()

Dim i As Integer '変数としてiを使う

For i = 1 To 3 'シート1からのシートまで

Sheets(i).Select 'i番目のシートを選択する

　Range("A" & Rows.Count).End(xlUp).EntireRow.Font.ColorIndex = 3'最終行色付け

Next i'次のシートに移る

End Sub