Callings Windows Default Sounds in a Macro

[dusty9]

Hello,
I'm trying to add sounds to my worksheet and instead of getting it to play sounds through a media player, I'm modifying a windows default sound scheme and playing them through that. I have seen that putting 'beep' in a macro calls the sound I have for 'default beep' in the sound scheme, I'm just wondering where I find the names that vba recognizes for the sounds that are default for a computer. For example if I put a sound in for 'close program' or 'minimize' in the sound scheme, what would I type in the code to call that? Just 'close' or 'minimize'?

 

[John_w]

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub test()
    sndPlaySound32 "C:\Windows\Media\tada.wav", &H1
    Application.Wait DateAdd("s", 2, Now)
    sndPlaySound32 "C:\Windows\Media\ding.wav", &H1
End Sub

You'll need to change the sndPlaySound32 declaration for 64-bit Windows.