Re: Excel Timer with Sheet Toggle Help

Tech-Archive recommends: Fix windows errors by optimizing your registry

From: Bob Phillips (bob.phillips_at_notheretiscali.co.uk)
Date: 04/14/04 

Date: Wed, 14 Apr 2004 09:37:05 +0100

Can I ask why you want this, if it happens every second, who is going to
change in the interim? 

-- 
HTH
Bob Phillips
    ... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Tysone" <tmunee@hotmail.com> wrote in message
news:d81033c9.0404131603.52f16596@posting.google.com...
> Here is my VB text:
>
>
> Dim Nexttime
>
> Sub Toggle_sheets()
> Dim i
>   Nexttime = Now + TimeValue("00:00:30")
>   i = Active***.Index + 1
>   Range("b1").Select
>   ActiveCell.FormulaR1C1 = ""
>   If i > 4 Then i = 1
>   ActiveWorkbook.Worksheets(i).Activate
>   Application.OnTime Nexttime, "Toggle_sheets"
> End Sub
>
>
> And what I want to add is a timer inside of this so that:
>
>   Range("b1").Select
>   ActiveCell.FormulaR1C1 = ""
>
> would happen every 00:00:01
>
> Can someone help me?
>
> Thanks
>
>
> Tyson
Quantcast