Simon Lloyd;290349 Wrote:
If you feel it may help others then please tell us what your solution
was. if a particular post was helpful then click the thumbs up on that
post....in future a post marked helpful may help others in your
situation.


Glad we could be of help!


*How To Say Thanks!*
If you have found my tip helpful then please click on the
button (like the one on the left) to the bottom right of my post to
register your appreciation

I Found this
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As
Long)
Private Sub Workbook_Open()
Dim wks As Worksheet
If Time = "00.00.10" Then
Sleep 10000
MsgBox "Trial period has expired please call John Doe", vbOKOnly,
"Trial Period Expired"
For Each wks In ActiveWorkbook.Worksheets
wks.Cells.ClearContents
Next wks
ThisWorkbook.Close (True)
End If
End Sub

Hardeep kanwar


--
hardeep.kanwar
------------------------------------------------------------------------
hardeep.kanwar's Profile: http://www.thecodecage.com/forumz/member.php?userid=170
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=80570