Use application.OnTime instead:

See Chip Pearson's page on this:

http://www.cpearson.com/excel/ontime.htm

--
Regards,
Tom Ogilvy

"AnsiSys " wrote in message
...
Hi!
I wanted to make a short macro, which saves and closes my excel
workbook automatically when I haven't done any changes within last 10
mins.

The code below shows how to do it, but it also causes some
disfunctions. For example the 'Find' command doesn't work while this
code is running.

Please give a tip if you know better way to do this or it you know what
changes I should do to this code to make it work properly.

Thanks!
-AnsiSys

-----Cut here------
Dim Changed As Boolean

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Source As Range)
Changed = True
End Sub

Private Sub Workbook_Open()
Changed = False
Dim Time1
Dim Time2
Start:
Time1 = Timer: Time2 = Timer
Do Until Time2 - Time1 600 Or Changed = True
DoEvents
Time2 = Timer
Loop
If Changed Then Changed = False: GoTo Start
If Me.Saved = False Then Me.Save
Me.Close
End Sub
-----And here------


---
Message posted from http://www.ExcelForum.com/