Results 1 to 2 of 2
  1. #1
    Join Date
    Mar 2008

    Unanswered: Application.OnTime not firing!

    Hi folks, Could really use some help with app.ontime here. I've got the following code in a single wkbk ...but it doesn't work!
    Pls let me know what you think! Gracias! "ThisWorkbook"
    Private Sub workbook_open()
        Application.ScreenUpdating = False
                Application.OnTime TimeSerial(10, 28, 0), "refresher"        
        Application.ScreenUpdating = True
    End Sub Module15
    Sub refresher()
    Dim data As Variant
    Dim output()
    Dim I As Integer
    Dim y As Integer
    Application.ScreenUpdating = False
    data = Range("PRICES")
    I = UBound(data, 2) ' cols
    y = UBound(data, 1) ' rows
    ReDim output(y, I) 
    output = data
    Range("New_1030").Resize(y, I) = output 
    ReDim output(y, I)
    Application.ScreenUpdating = True
    End Sub

  2. #2
    Join Date
    Sep 2008
    London, UK
    It fires for me, at 10:28, provided the workbook is still open. Is that the time you want it to run at?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts