On Jan 28, 1:15 pm, Steve wrote:
On 28 Jan, 12:54, Steve wrote:

Hi all,

HYCH.

Am looking for some code to creat a countdown timer, was hoping for
hh:mm:ss & if possible lower, not sure if it is possible, but any help
would be greatly appreciated.

Steve

Forget this, got the timer sorted,, found old post on this site.

:)

But!

anyway to get a page to refresh after 20 secs?

Steve

Hi,

Try this.

Paste this into the worksheet's module:-

Private Sub Worksheet_Activate()
Call Recalculate
End Sub

Public Sub Recalculate()
Calculate
Application.OnTime earliesttime:=Now + TimeValue("00:00:20"), _
procedu="Recalculate"
End Sub

This should recalculate your worksheet every 20 seconds. To change
the recalculation period just change the value in brackets after
'TimeValue'

Hope this helps,

Regards,
Matt Richardson
http://teachr.blogspot.com