こんなことがありました

役立つ?表計算ソフト(の怪)その2

デスクノート印刷のマクロの中身は, 
 
 ①Sub デスクノート印刷()
    ②  For A= 0 To 365 Step 7
    ③    Cells(2,"C").Value = A
    ④    Range("E4:G54).Select
    ⑤    ActiveWindows.SelectedSheets.PrintOut Copies:=1
    ⑥  Next A
    ⑦End Sub 

 書き下し文(?国語の古典の説明のように)
 ①デスクノート印刷 と言う名前のマクロ と宣言している。
 ②Aの値を,0〜365まで変化させなさい,ただし,値は「7」ずつ増やしなさい。
 ③Aの値は,セル番地2Cに入れなさい。
 ④範囲,E4〜G54を選びなさい。
 ⑤今使っているシートを選び,1枚印刷しなさい。
 ⑥次のAに行きなさい。(②に戻って,前回の値「0」を「7」にしなさい。
 ⑦Aの値が,365以上になったら,デスクノート印刷と言うマクロを終了しなさい。
 となります。