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

    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!

    ..in "ThisWorkbook"
    Code:
    Private Sub workbook_open()
        Application.ScreenUpdating = False
                Application.OnTime TimeSerial(10, 28, 0), "refresher"        
        Application.ScreenUpdating = True
    End Sub
    ...in Module15
    Code:
    Sub refresher()
        
    Dim data As Variant
    Dim output()
    Dim I As Integer
    Dim y As Integer
    
    Application.ScreenUpdating = False
    Range("New_1030").ClearContents
    
    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
    Location
    London, UK
    Posts
    511
    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
  •