Even declaring dd as Public will not work if you put it in the worksheet
module as you seem to suggest. In this case, you need to check it in the
'check' procedure like this

If A - Sheet1.dd < 30 Then
or whatever the worksheet codename is.

But why do you need to check itr, the check routine will only fire after 30
seconds. What you nedd to do is have a routine that traps entry and cencel
the OnTime when that occurs, and then re-start it.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mark" wrote in message
...
Hi Frank,
Double declare statement there isn't reason my problem.
Mayby my code isn't correct.
I still looking for vba script..
Regards

-----Original Message-----
Hi
you have defined this variabl two times. Therefor in you
check procedure it used the variable in this module (this
is not initialized). Not tested but try removing on of
the
variable declarations

-----Original Message-----
Hi Experts,
I'd like check modification in worksheet. If haven't
change in sheet for each intervals (e.g. each 30 second)
then get info "Will you still work?" vbYesNo.
Yes (still work) , No (close workbook).
I have written follow script but it function badly:

(in body worksheet)
Public dd As Date
Sub Worksheet_Change(ByVal Target As Range)
dd = Now
Application.OnTime dd + TimeValue("00:00:30"), "check"
End Sub

(in body module)
Public dd As Date
Public A as Date
Sub check()
A = Now
If A - dd < 30 Then ' although dd is public variable dd
=
0 , why ???

....
End If
End Sub

There are some solutions in NET, but can anyone provide
full correct VBA script?


I've excel 2k.

Kindly regards
Mark

.

.