Stop code running in other workbooks

[jjokol]

The following code is used at the beginning of a Module to make it run every second. It works fine, but it also does the same to any other workbook that is open.

How do I restrict its use to only 1 workbook ("BA - Data.xls")?

dTime = Now + TimeValue("00:00:01")
Application.Workbooks("BA - Data.xls").OnTime dTime, "new_2009"

 

[Andrew Poulsom]

A workbook doesn't have an OnTime method does it? The method is a member of the Application object.

 

[jjokol]

Yes, Andrew, you're right that OnTime belongs to Applications. I've tried to specify the Workbook to make the code apply only to that one, but without success.

Is there a way I can restrict the OnTime code to one workbook?

 

[Andrew Poulsom]

Where is your code and what is the procedure new_2009 doing?

 

[jjokol]

I've had an idea. If I put an If statement around the code, as follows, then that might work. Problem is that I can't get the right syntax for the If statement (the True is not liked)

If ActiveWorkbook.Worksheets("Not In Play") Is True Then
dTime = Now + TimeValue("00:00:01")
Application.OnTime dTime, "new_2009"

 

[Andrew Poulsom]

Is it?

If ActiveSheet.Name = "Not In Play" Then

 

[jjokol]

Thanks Andrew. My idea still doesn't work. As soon as another workbook is opened, the code stops working.

There must be a way round this.

 

[Andrew Poulsom]

I expect there is a way around it, but you still haven't said where your code is or what your new_2009 procedure is doing.