Re: Excel Timer with *** Toggle Help

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

Date: Wed, 14 Apr 2004 17:19:55 +0100

How about something like

Sub Toggle_sheets()
Dim i As Long
Dim NextTime As Date
      NextTime = Now + TimeValue("00:00:3")
      'i = Active***.Index + 1
      ResetCell

      'If i > 4 Then i = 1
      'ActiveWorkbook.Worksheets(i).Activate
      MsgBox "Toggle"
      Application.OnTime NextTime, "Toggle_sheets"
End Sub

Sub ResetCell()
Dim NextSec
    NextSec = Now + TimeValue("00:00:01")
    'Range("B1").FormulaR1C1 = ""
    MsgBox "hello"
    Application.OnTime NextSec, "ResetCell"
End Sub

be interesting to see what happens to the stack though. 

-- 
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.0404140618.47e445d4@posting.google.com...
> This is what it's for.  I created a real time excel file that shows
> all our sales people's revenue VS quota, that I display on a giant
> plasma screen for them to look at.  There will be no editing on this
> workbook.  All I do is take my laptop hook it up to the screen and let
> it toggle.  And why I want that action to take place every second is
> because I have a timer on each page that I want to update every
> second... Can someone help me make my formula happen??
>
>
> "Bob Phillips" <bob.phillips@notheretiscali.co.uk> wrote in message
news:<#P5IsufIEHA.3220@TK2MSFTNGP12.phx.gbl>...
> > 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)
> >