autorefresh after 5 mnts

[G2K]

hi all,

i want to refresh my worksheet after 5 minutes interval even if there is no any change in worksheet.i have a small tracker which allow users to store and retrive data from Ms-Access. i want a Message popup after every five minute

Like: -

Application.OnTime Now + TimeValue("00:00:05"), "my_Procedure"

how to call "my_Procedure" after 5 minues interval ??


thanks in advance

 

[dave3009]

Like

Sub MyProc()
Application.OnTime Now + TimeValue("00:05:00"), "myProc"
ThisWorkbook.RefreshAll
End Sub

 

[G2K]

thanks Dave for your quick reply.

but it is not working here. i get the message only once when i call the procedure by clicking a command button.

 

[dave3009]

5 minutes is a long time

Test on a short time period like 5 seconds

Sub MyProc()
Application.OnTime Now + TimeValue("00:00:05"), "myProc"
ThisWorkbook.RefreshAll
MsgBox "a refresh"
End Sub

This should produce a msgbox along with the refresh, you will need to click OK on the msgbox to continue

 

[G2K]

BINGO...


thanks a ton.