Posted to microsoft.public.excel.programming

Tysone

external usenet poster

Posts: 17

Excel Timer with Sheet Toggle Help

Here is my VB text:

Dim Nexttime

Sub Toggle_sheets()
Dim i
Nexttime = Now + TimeValue("00:00:30")
i = ActiveSheet.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

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Timer in Excel	Gil	Excel Discussion (Misc queries)	2	January 14th 10 12:57 PM
Pop up timer for excel	jlclyde	Excel Discussion (Misc queries)	1	August 31st 07 10:08 PM
EXCEL TIMER CONTROL	Avinash Shukla	Links and Linking in Excel	0	June 28th 07 11:38 AM
Stopping a Timer / Running a timer simultaneously on Excel	Paul23	Excel Discussion (Misc queries)	1	March 10th 06 12:08 PM
Excel functions?????????FIRST TIMER	JC[_5_]	Excel Programming	0	September 11th 03 07:52 PM

All times are GMT +1. The time now is 06:17 AM.

About Us

"It's about Microsoft Excel"

Menu

About Us