このマクロはおぼえておかないとだめです。なんて簡単で美しいのでしょう。 Sub 請求書印刷() Dim 番号 As Integer For 番号 = 1 To 69 Sheets("請求書データ").Range("A1").Value = 番号 Sheets("請求書データ").PrintOut Next 番号 End Sub