Need a click, beep, or a burp
 

Not from the speakers but something from inside the PC. I need a sound
when a macro has completed. I am not even sure this can be done but I
am hoping.

Need a click, beep, or a burp
 

the code
Beep
Makes a Beep sound

Sub Button1_Click()
Dim I As Integer
For I = 1 To 3 ' Loop 3 times.
Cells(I, I) = I
Next I
Beep 'beeps
End Sub

Need a click, beep, or a burp
 

On Feb 27, 5:11 pm, CurlyDave wrote:
the code
Beep
Makes a Beep sound

Sub Button1_Click()
Dim I As Integer
For I = 1 To 3 ' Loop 3 times.
Cells(I, I) = I
Next I
Beep 'beeps
End Sub

No sound and I get a stack error. When I use Beep all by itself, it
works fine. Thanks. Any Tron sound effects?

Need a click, beep, or a burp
 

........ No sound and I get a stack error. When I use Beep all by
itself, it
works fine. Thanks. Any Tron sound effects?.........

The code should work....

Check this out on playing sounds using VBA and getting the sound from
a file folder on your computer.
http://exceltip.com/st/Playing_WAV-f...Excel/460.html

Another way would be to insert a sound object onto the worksheet, then
this code would work

Worksheets("Sheet1").OLEObjects(1).Verb
This way has it's drawbacks though, one of them being, it increases
the size of the workbook