Selected Answer
I got it, tis went in workbook.
Private Sub WORKBOOK_OPEN()
With Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1)
.Value = .Parent.Range("A1").Value
.Offset(, 1).Value = Now
End With
NextTime = Now + TimeValue("00:01:00") '1 minutes
Application.OnTime NextTime, "COPY"
Application.OnTime TimeValue("23:59:15"), "PrintOneSheet"
Application.OnTime TimeValue("23:59:45"), "DELETE"
End Sub
than put this in a module
Sub COPY()
With Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1)
.Value = .Parent.Range("A1").Value
.Offset(, 1).Value = Now
End With
NextTime = Now + TimeValue("00:01:00") '1 minutes
Application.OnTime NextTime, "COPY"
End Sub
CODE Tags: You must add [CODE][/CODE] tags around your code! (click the CODE button to do this when creating a post)