Fortlaufende Nummer

Hallo Jango

wenn Du dich mit VBA auskennst kannst Du dir folgendes Makro Anpassen
25. [VBA] Blatt mehrmals drucken mit Seitennumerierung

Sub Drucken()
For x = 1 To 10
Range("D15") = x
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next x
End Sub

Gruß Hajo