Looking to have a timer set off an alarm at 15 minute intervals as in Visual
Basic.net
Dim WithEvernts Timer1 as Timer

Dim TimeRemaining as Integer ==15*60

Private Sub Worksheet_Open
Timer1.Interval=5000
Timer1 Enabled=True
Timer1.Start() ' this does not work in Excel but does in VB.net
end sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick

TimeRemaining=TimeRemaining-5
If timeRemaing =0 then
....
Enact Alarm
....
TimeRemaining=15*60
End if
End Sub

In Excel VBA, you can use the OnTime method. See
www.cpearson.com/excel/OnTime.aspx for details and example code.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Philosophaie" <(E-Mail Removed)> wrote in message
news:A27C9F4C-48C6-462F-AF02-(E-Mail Removed)...
> Looking to have a timer set off an alarm at 15 minute intervals as in
> Visual
> Basic.net
> Dim WithEvernts Timer1 as Timer
>
> Dim TimeRemaining as Integer ==15*60
>
> Private Sub Worksheet_Open
> Timer1.Interval=5000
> Timer1 Enabled=True
> Timer1.Start() ' this does not work in Excel but does in VB.net
> end sub
>
> Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
> System.EventArgs) Handles Timer1.Tick
>
> TimeRemaining=TimeRemaining-5
> If timeRemaing =0 then
> ...
> Enact Alarm
> ...
> TimeRemaining=15*60
> End if
> End Sub

Looking to make something flash on, off and recycle. Would nesting two
Application.OnTime functions?

"Chip Pearson" wrote:

> In Excel VBA, you can use the OnTime method. See
> www.cpearson.com/excel/OnTime.aspx for details and example code.
>
>
> --
> Cordially,
> Chip Pearson
> Microsoft MVP - Excel
> Pearson Software Consulting
> www.cpearson.com
> (email on the web site)
>
>
> "Philosophaie" <(E-Mail Removed)> wrote in message
> news:A27C9F4C-48C6-462F-AF02-(E-Mail Removed)...
> > Looking to have a timer set off an alarm at 15 minute intervals as in
> > Visual
> > Basic.net
> > Dim WithEvernts Timer1 as Timer
> >
> > Dim TimeRemaining as Integer ==15*60
> >
> > Private Sub Worksheet_Open
> > Timer1.Interval=5000
> > Timer1 Enabled=True
> > Timer1.Start() ' this does not work in Excel but does in VB.net
> > end sub
> >
> > Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
> > System.EventArgs) Handles Timer1.Tick
> >
> > TimeRemaining=TimeRemaining-5
> > If timeRemaing =0 then
> > ...
> > Enact Alarm
> > ...
> > TimeRemaining=15*60
> > End if
> > End Sub
>

You could adapt the code for blinking text at
http://www.cpearson.com/excel/BlinkingText.aspx .


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Philosophaie" <(E-Mail Removed)> wrote in message
news:4C39D53D-7AFE-484D-919F-(E-Mail Removed)...
> Looking to make something flash on, off and recycle. Would nesting two
> Application.OnTime functions?
>
> "Chip Pearson" wrote:
>
>> In Excel VBA, you can use the OnTime method. See
>> www.cpearson.com/excel/OnTime.aspx for details and example code.
>>
>>
>> --
>> Cordially,
>> Chip Pearson
>> Microsoft MVP - Excel
>> Pearson Software Consulting
>> www.cpearson.com
>> (email on the web site)
>>
>>
>> "Philosophaie" <(E-Mail Removed)> wrote in message
>> news:A27C9F4C-48C6-462F-AF02-(E-Mail Removed)...
>> > Looking to have a timer set off an alarm at 15 minute intervals as in
>> > Visual
>> > Basic.net
>> > Dim WithEvernts Timer1 as Timer
>> >
>> > Dim TimeRemaining as Integer ==15*60
>> >
>> > Private Sub Worksheet_Open
>> > Timer1.Interval=5000
>> > Timer1 Enabled=True
>> > Timer1.Start() ' this does not work in Excel but does in VB.net
>> > end sub
>> >
>> > Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As
>> > System.EventArgs) Handles Timer1.Tick
>> >
>> > TimeRemaining=TimeRemaining-5
>> > If timeRemaing =0 then
>> > ...
>> > Enact Alarm
>> > ...
>> > TimeRemaining=15*60
>> > End if
>> > End Sub
>>