Need a click, beep, or a burp

  • Thread starter Thread starter Fan924
  • Start date Start date
F

Fan924

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.
 
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
 
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
Click to expand...

No sound and I get a stack error. When I use Beep all by itself, it
works fine. Thanks. Any Tron sound effects?
 
........ 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-files_using_VBA_in_Microsoft_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
 
Back
Top