Tom’s Tutorials For Excel: Getting Attention With Multiple Beeps
Let’s face it, sometimes a warning needs a little more emphasis than the usual single Beep. There are some sound wave files already built into your computer that can be called on, but for today, here’s a simple method for sounding several Beeps instead of just the usual single Beep.
In a new fresh standard module, paste this in for a rapid-fire 5-Beep experience. You can adjust the time interval between Beeps by adjusting the
Sleep factor. For example, reducing the number 175 to, say, 100 will sound the Beeps in faster rapid-fire. Increasing the
Sleep factor will space out the Beeps over a longer period of time.
Private Declare Sub Sleep Lib "kernel32" (ByVal dxMilliseconds As Long) Sub BEEP5() Dim myCount% myCount = 0 Do Until myCount = 5 Beep myCount = myCount + 1 Sleep 175 Loop End Sub