VBA: Close workbook after 15 min

[bamaisgreat]

I somehow need to add to the section of code below a event to have the "(Public)Archive.xls" to automatically close 15 minutes without saving everytime it is opened.

Kill "H:\All\Material Prep Archive\(Public)Archive.xls"
Columns("A:H").Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Range("a2:h2").Select
    Selection.AutoFilter
    With Selection.Interior
        .Pattern = xlSolid
        .Pattercolorindex = xlAutomatic
        .Color = 12611584
        .TintAndShade = 0
        .PatternTintAndShade = 0
   End With
   Range("C3").Select
   
    
        
 Application.DisplayAlerts = False
    ActiveWorkbook.CheckCompatibility = False
    ActiveWorkbook.SaveAs Filename:= _
        "H:\All\Material Prep Archive\(Public)Archive.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close

 

[John_w]

Have a look at Application.OnTime with its timer started in Workbook_Open.