Help with Autosave macro when multiple workbooks open

[JumboCactuar]

Hi,
i have the following code which works great with just the one open workbook. But it runs into problems if other excel workbooks are open

Private Sub Workbook_BeforeClose(Cancel As Boolean)   Application.OnTime dTime, "autoSave", False
End Sub
 
Private Sub Workbook_Open()
    dTime = Now + TimeValue("00:01:00")
    Application.OnTime dTime, "autoSave"
End Sub

Public dTime As DateSub autoSave()
    dTime = Now + TimeValue("00:01:00")
    Application.OnTime dTime, "autoSave"
    
    ActiveWorkbook.Sheets("Sheet1").Range("A1") = Time()
    ActiveWorkbook.Save
     
    
End Sub

i know i have to declare WB somewhere, maybe on open? so it stores in memory. I cant declare in autosave() as when it runs it will use the current active workbook

any help appreciated

 

[JumboCactuar]

when i try the following it errors after a minute with "object required"

Public wb1 As Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.OnTime dTime, "autoSave", False
End Sub
 
Private Sub Workbook_Open()


Set wb1 = ActiveWorkbook
    dTime = Now + TimeValue("00:01:00")
    Application.OnTime dTime, "autoSave"
End Sub

Public dTime As Date
Sub autoSave()
    dTime = Now + TimeValue("00:01:00")
    Application.OnTime dTime, "autoSave"
    
    wb1.Sheets("Sheet1").Range("A1") = Time()
    wb1.Save
     
    
End Sub