lior03
12-05-2005, 11:54 AM
hello
the following macro will save and close all open workbooks except the active workbook within 15 seconds.how do i make it repeate it's action?.
namely- how do i create my on autosave mechanism.
Sub doit2()
Dim dnext As Date
dnext = TimeValue("00:00:15")
Application.OnTime Now + dnext, "closeallbut"
End Sub
thanks
the following macro will save and close all open workbooks except the active workbook within 15 seconds.how do i make it repeate it's action?.
namely- how do i create my on autosave mechanism.
Sub doit2()
Dim dnext As Date
dnext = TimeValue("00:00:15")
Application.OnTime Now + dnext, "closeallbut"
End Sub
thanks