On Friday, June 21, 2013 2:38:45 AM UTC-7, Claus Busch wrote:
Hi Howard,



Am Fri, 21 Jun 2013 02:15:58 -0700 (PDT) schrieb Howard:



SoundPlayAsyncLoop Sheets("Sheet1").Range("F1").Text

SoundPlayAsyncOnce Sheets("Sheet1").Range("F1").Text



SoundPlayAsyncLoop Sheets("Sheet1").Range("G1").Text

SoundPlayAsyncOnce Sheets("Sheet1").Range("G1").Text





Regards

Claus Busch


Well, I sorta was on the right track. I copied from this part of code and missed the part about "SoundStop". Even being curious about the ...Loop portion, it slipped by me.

My bad, DUH! And I thank you for pointing out the obvious.

Regards,
Howard

If .Value <= WarningTime Then
SoundPlayAsyncLoop Sheets("Main").Range("F1").Text
End If
Wend
If (.Value <= Period) Then
SoundStop
.Value = "Time Up!"
End If