OOPS:

Important change if you want to avoid crashes...
(during editing or with modal dialogs)

Public Sub DoTimer()
ON ERROR RESUME NEXT
Sheet1.Cells(1, 1) = Time
End Sub


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam