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
dBforums
>
Application.OnTime not firing!
03-10-11, 14:20
Linear Mode
