Automatically run macro at a particular time

Hi..

Put this in a Module..

Sub Saveas()
Dim ShNames As Variant
ShNames = Array("Sheet1", "Sheet2", "Sheet3")

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets("Sheet1").Range("B4:B12").Copy Destination:=Sheets("Sheet2").Range("B4")
Set NewWkbk = Workbooks.Add
        ThisWorkbook.Sheets("Sheet2").Copy Before:=NewWkbk.Sheets(1)
        NewWkbk.Sheets(1).Name = "Data"
        Worksheets(ShNames).Delete
        NewWkbk.Saveas ThisWorkbook.Path & "\" & Format(Now, "long date")
        NewWkbk.Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

And add this to your Sheet code to call it at 4:15 AM..

Private Sub Worksheet_Activate()
Application.OnTime TimeValue("04:15:00"), "Saveas", Schedule:=True
End Sub