Use Event Procedure and OnTime to Stop a Macro

I have an app that uses Windows timer for gathering data. It uses the pop timer code in a macro that I can start at will. I have looked for a way to use OnTime Method to automatically stop the macro after a period of time has expired... but to no avail. I can start my macros at certain time of day, etc., but I have found nothing that sets a timer and then does some action (e.g. killtimer) after some duration of time has elapsed. I need to limit the data collection to 960 cells. This equates to a 4 hour trend @ 15 second intervals.

I have found some code that uses eventprocedure and ontime method to close a workbook after some definable period of time.
This raises the question, why could I not use something similar to this to stop collecting data e.g. killtimer to stop my macro?? Anyone have some idea which direction I should take on this?

Thanks again for the very fine help I have experienced on this forum. One of these days I hope to know enough to be a resource to someone else as you all have been to me.

Good morning, Rob. Thank you for your reply. I have three questions about the counter. First, to what time base is the counter triggered? The time duration for my macro to run needs to be somewhat reasonably accurate to at least within 1 minute. Second, what actually starts this counter? And last, could you give me and idea how this code would be integrated to stop my macro at the end of the counter duration "check". Thanks.

Thank you, Rob for your reply. Following is my code. In my main worksheet is the following start/stop and cleanup code:

Private Sub CommandButton1_Click()

    TimerSeconds = 15
                       
    TimerID = SetTimer(0&, 0&, TimerSeconds * 1000&, AddressOf TimerProc)
    
    Range("G6").Select
    Selection.ClearContents
    Range("C2").Select

    Range("F10").Select
    Selection.Copy
    Sheets("Source").Select
    Range("F6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Application.CutCopyMode = False
     
End Sub

Private Sub CommandButton2_Click()
    On Error Resume Next
    KillTimer 0&, TimerID
    
    Range("F6").Select
    Selection.ClearContents
    Range("C2").Select
    
    Range("F10").Select
    Selection.Copy
    Range("G6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C2").Select
    Application.CutCopyMode = False
End Sub

And here this code located in a Module:

Public Declare Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long, _
    ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, ByVal nIDEvent As Long) As Long

Public TimerID As Long
Public TimerSeconds As Single


Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
    ByVal nIDEvent As Long, ByVal dwTimer As Long)
    
    
With ThisWorkbook
    .Sheets("Value1").Range("A65536").End(xlUp)(2, 1) = .Sheets("Source").Range("B3")
    .Sheets("Value1").Range("A65536").End(xlUp)(1, 3) = .Sheets("Source").Range("B4")
    .Sheets("Value1").Range("A65536").End(xlUp)(1, 5) = .Sheets("Source").Range("B5")
    .Sheets("Value1").Range("A65536").End(xlUp)(1, 8) = .Sheets("Source").Range("C2")
    .Sheets("Value1").Range("A65536").End(xlUp)(1, 10) = .Sheets("Source").Range("B7")
End With

End Sub

There is some other macros/code that is used to delete data and give me a blank worksheet to start new data collection.

As for my question about the time base... duh! We are talking about a counter here. Oops.
I can understand how using a counter to count the number of cell entries on my "Value1" sheet could be used to killtimer. I guess that is what I need to understand. Your help is much appreciated.

Good morning, Rob: Sorry for the delay in getting back here. It has been very busy at workee and just now got the opportunity to check back. Thanks for the abbreviation and suggestion for my code.

The brackets in the Range addy I think I picked up from vb code examples I found to use between Windows apps and Allen Bradley PLCs. We use a bit of DDE over a communications highway to peek and poke data between PLCs and MS Excel, MS Access, etc. It is possible to use an Excel cell or range of cells as an object and refer to the object in RSLogix formulas...thus the bracketed addy. This make sense?

I use MS Excel as a switchboard for operators to use to view (and in some cases makes program changes in) a large number of production area controllers.
I am not really proficient in VB and so I ask a lot of questions while I learn it. Andy Pope has been a huge help as I need to move along quickly on some of these projects. One of these days I hope to get a good grip on VBA and VB. This is a great forum for me.
Again, thanks for your help.

Oh.. and I almost forgot.. regarding my question about what time base is used for the counter?

As I got to thinking about your response, I realized that a bit of PLC programming mindset had crept into my thinking. Counters don't typically count up or stay "enabled" on their own. They are conditioned by inputs that trigger (enable) them. In regards to my data collection, an accumulated value in a counter would work fine to set a line in a "stop macro" vb line. The countup of 1 count at the end of each 15 second pop timer interval would be the time base (in my clogged mind way of thinking).
I will have to do some more work on killing the timer to make this work. I am trying to get the data collection and logging/graphing to run for 4 hours and then stop all on its own. I even thought of using some logic in the PLC from which I am sampling data to set a bit... Excel to update a cell with the condition in the address... then use the cell state (an event) to stop the macro. I'll have to give it some thought. I may be making this more complicated than I realize is necessary.

chow