vba code to run files

[Bob]

What is the syntax to execute a wave file inside an Excel macro.
Specifically, I want to run Microsoft XP Ding?

Thank you

 

[Jim Thomlinson]

Put this anywhere...
Private Sub Test()
PlayWavFile "C:\Windows\Media\Microsoft Office 2002\Ding.wav"
End Sub

In a standard Code Module add this code...
'*******************************************
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, hModule As Long, ByVal dwFlags As Long) As Long

Public Function PlayWavFile(WavFile As String) As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME
PlayWavFile = ""
End Function
'**************************************************