hi Priyanka,

something like that in a module.
There might be other ways as well.

Sub StartIt()
Application.OnTime Now + TimeValue("00:00:03"), "SaveIt"
' every third second for testing
End Sub

Sub SaveIt()
If ActiveWorkbook.Saved = False Then
ActiveWorkbook.Save
MsgBox "saved" ' for testing
End If
StartIt
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP