Use VBA to play a sound (.wav) file?

Paul:

put this code in a module:

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

Public Sub PlayWavFile(WavFileName As String, Wait As Boolean)

If Dir(WavFileName) = "" Then Exit Sub 'no file to play

If Wait = True Then 'play sound before running any more code
sndPlaySound WavFileName, 0
Else 'play sound while code is running
sndPlaySound WavFileName, 1
End If

End Sub

and copy this into the ThisWorkbook code sheet:

Private Sub Workbook_Open()
PlayWavFile WavFileName:="C:\winnt\media\tada.wav", Wait:=True
End Sub

Have fun!

Mark

Re: Thank You Very Much

Just what I Needed... Thanks