VBA Print out and add 1-30 day/copies

VBA Print out and add 1-30 day/copies

Sub PrintCopies()

    Dim i As Integer

    Dim numCopies As Integer

    'numCopies = InputBox("30")

    

    For i = 1 To 30

        ActiveSheet.PrintOut copies:=1, collate:=True, _

            ignoreprintareas:=False, preview:=False, _

            activeprinter:="Printer Name"

  Application.Wait (Now + TimeValue("0:00:01"))

ActiveSheet.Range("A1").Value = DateAdd("d", i, ActiveSheet.Range("A1").Value)

    Next i

End Sub '