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

' Place all of this including the above into an Excel code module
' Suggest you use a new workbook wavetest.xls for this -- Have fun
'
Sub testwav(wavefile As String)
'   http://www.mvps.org/dmcritchie/excel/code/testwave.txt
   On Error GoTo done
   ActiveCell.Offset(1, 0).Activate
   ActiveCell.Value = wavefile
   If UCase(Left(wavefile, 5)) <> "NOTE:" And wavefile <> "" Then
      Call sndPlaySound32(wavefile, 0)
   End If
done:
End Sub

 '======================================================================
 ' Run the following macro ....
 '=============================================================================
Sub TestWaves()
 Worksheets.Add
 testwav "Note: If a wave file does not exist at specified location, you will hear a single beep (ends at row 55)"
 Columns("A:A").EntireColumn.AutoFit

 testwav ("note: the following were in c:\winnt\media\")
    testwav ("canyon.mid")
    testwav ("chimes.wav")
    testwav ("chord.wav")
    testwav ("ding.wav")
    testwav ("ringin.wav")
    testwav ("ringout.wav")
    testwav ("start.wav")
    testwav ("tada.wav")
    testwav ("the microsoft sound.wav")
    testwav ("windows nt logoff sound.wav")
    testwav ("windows nt logon sound.wav")
    testwav ("applause.wav")

 testwav ("C:\WINNT\Media\Microsoft Office 2000\APPLAUSE.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\CAMERA.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\CARBRAKE.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\CASHREG.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\CHIMES.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\CLAP.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\DRIVEBY.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\DRUMROLL.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\EXPLODE.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\GLASS.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\GUNSHOT.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\LASER.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\PROJCTOR.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\RICOCHET.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\TYPE.WAV")
 testwav ("C:\WINNT\Media\Microsoft Office 2000\WHOOSH.WAV")

 testwav ("C:\WINNT\MSREMIND.WAV")
 testwav ("C:\WINNT\system\ADDING.WAV")
 testwav ("C:\WINNT\system\CRKYDOOR.WAV")
 testwav ("C:\WINNT\system\T-FLUSH.WAV")


 testwav ("C:\MSOffice\Sounds\GLASS.WAV")
 testwav ("C:\MSOffice\Sounds\CLAP1.WAV")
 testwav ("C:\MSOffice\Sounds\GUN.WAV")
 testwav ("C:\MSOffice\Sounds\EXPLODE.WAV")
 testwav ("C:\MSOffice\Sounds\CLAP4.WAV")
 testwav ("C:\MSOffice\Sounds\PROJCTOR.WAV")
 testwav ("C:\MSOffice\Sounds\CASH2.WAV")
 testwav ("C:\MSOffice\Sounds\CAR.WAV")
 testwav ("C:\MSOffice\Sounds\CAMERA.WAV")
 testwav ("C:\MSOffice\Sounds\DRIVE2.WAV")
 testwav ("C:\MSOffice\Sounds\RICOCHET.WAV")
 testwav ("C:\MSOffice\Sounds\CHIME01.WAV")
 testwav ("C:\MSOffice\Sounds\TYPE.WAV")
 testwav ("C:\MSOffice\Sounds\WHOOSH1.WAV")
 testwav ("C:\MSOffice\Sounds\DRUM.WAV")
 testwav ("C:\MSOffice\Sounds\PHASER.WAV")
 testwav ("C:\WS_FTP\COMPLETE.WAV")
 testwav ("C:\WS_FTP\CONNECT.WAV")
 testwav ("C:\WS_FTP\ERROR.WAV")
 testwav ("C:\UFT\EMPTY.WAV")
 testwav ("Whether you enjoyed it or not TESTWAV is done")
End Sub

 '======================================================================
 ' You will just hear a DING for missing waves
 '=============================================================================
Sub testwav_rest()
 Worksheets.Add
 testwav "Note: If a wave file does not exist at specified location, you will hear a single beep"
 Columns("A:A").EntireColumn.AutoFit
 testwav ("c:\FOCALPNT\GREETING\TWENTY.WAV")    '20
 testwav ("c:\FOCALPNT\GREETING\TWO.WAV")       '02
 testwav ("c:\FOCALPNT\GREETING\YOUHAVE.WAV")
 testwav ("c:\FOCALPNT\GREETING\ZERO.WAV")      'zero
 testwav ("c:\FOCALPNT\GREETING\THANKYOU.WAV")
 testwav ("c:\FOCALPNT\GREETING\THIRTEEN.WAV")  '13
 testwav ("c:\FOCALPNT\GREETING\THIRTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\THREE.WAV")
 testwav ("c:\FOCALPNT\GREETING\TOLL_DIS.WAV")
 testwav ("c:\FOCALPNT\GREETING\TOLL_ENA.WAV")
 testwav ("c:\FOCALPNT\GREETING\TOLL_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\SEVEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\SEVENTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\SIX.WAV")
 testwav ("c:\FOCALPNT\GREETING\SIXTEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\SIXTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\TEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\PWD_CHNG.WAV")
 testwav ("c:\FOCALPNT\GREETING\REC_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\RECV_OPT.WAV")
 testwav ("c:\FOCALPNT\GREETING\RECVOPT2.WAV")
 testwav ("c:\FOCALPNT\GREETING\POST_REC.WAV")
 testwav ("c:\FOCALPNT\GREETING\POSTMSG2.WAV")
 testwav ("c:\FOCALPNT\GREETING\POUNDKEY.WAV")
 testwav ("c:\FOCALPNT\GREETING\PRESTART.WAV")
 testwav ("c:\FOCALPNT\GREETING\PLS_WAIT.WAV")
 testwav ("c:\FOCALPNT\GREETING\POST_FOD.WAV")
 testwav ("c:\FOCALPNT\GREETING\POST_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\POST_MSG.WAV")
 testwav ("c:\FOCALPNT\GREETING\PAGE.WAV")
 testwav ("c:\FOCALPNT\GREETING\INVALPWD.WAV")
 testwav ("c:\FOCALPNT\GREETING\LOG_COPY.WAV")
 testwav ("c:\FOCALPNT\GREETING\LOGENTRY.WAV")
 testwav ("c:\FOCALPNT\GREETING\FW_OPT.WAV")
 testwav ("c:\FOCALPNT\GREETING\FWD_ID.WAV")
 testwav ("c:\FOCALPNT\GREETING\GOODBYE.WAV")
 testwav ("c:\FOCALPNT\GREETING\INVALENT.WAV")
 testwav ("c:\FOCALPNT\GREETING\FIVE.WAV")
 testwav ("c:\FOCALPNT\GREETING\FOD_LIST.WAV")
 testwav ("c:\FOCALPNT\GREETING\FORTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\FORWARDN.WAV")
 testwav ("c:\FOCALPNT\GREETING\FORWARDY.WAV")
 testwav ("c:\FOCALPNT\GREETING\FOUR.WAV")
 testwav ("c:\FOCALPNT\GREETING\FOURTEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\FAX_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\FAXNOTN.WAV")
 testwav ("c:\FOCALPNT\GREETING\FAXNOTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\FF_OPT.WAV")
 testwav ("c:\FOCALPNT\GREETING\FIFTEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\FIFTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENTM_ID.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENTM_PWD.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENTR_FFN.WAV")
 testwav ("c:\FOCALPNT\GREETING\FAX_ATC2.WAV")
 testwav ("c:\FOCALPNT\GREETING\FAX_ATCH.WAV")
 testwav ("c:\FOCALPNT\GREETING\EMAILY.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENDMAIN.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENDMAIN2.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENT_FXID.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENTER_ID.WAV")
 testwav ("c:\FOCALPNT\GREETING\ENTFAXNR.WAV")
 testwav ("c:\FOCALPNT\GREETING\CONF_PWD.WAV")
 testwav ("c:\FOCALPNT\GREETING\PAGE_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\PAGERN.WAV")
 testwav ("c:\FOCALPNT\GREETING\PAGERY.WAV")
 testwav ("c:\FOCALPNT\GREETING\PAGES.WAV")
 testwav ("c:\FOCALPNT\GREETING\PASSWORD.WAV")
 testwav ("c:\FOCALPNT\GREETING\NINETY.WAV")
 testwav ("c:\FOCALPNT\GREETING\NO_FOD.WAV")
 testwav ("c:\FOCALPNT\GREETING\NOTH_REC.WAV")
 testwav ("c:\FOCALPNT\GREETING\ONE.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEW_FAXS.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEW_MSG.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEW_MSGS.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEW_PASS.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEWMSG.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEWMSGS.WAV")
 testwav ("c:\FOCALPNT\GREETING\NINE.WAV")
 testwav ("c:\FOCALPNT\GREETING\MSG_FWD.WAV")
 testwav ("c:\FOCALPNT\GREETING\MSG_RNGE.WAV")
 testwav ("c:\FOCALPNT\GREETING\MSGDEL.WAV")
 testwav ("c:\FOCALPNT\GREETING\MSGSAVED.WAV")
 testwav ("c:\FOCALPNT\GREETING\NEW_FAX.WAV")
 testwav ("c:\FOCALPNT\GREETING\MBOXFULL.WAV")
 testwav ("c:\FOCALPNT\GREETING\MORETHAN.WAV")
 testwav ("c:\FOCALPNT\GREETING\MSG_EXIS.WAV")
 testwav ("c:\FOCALPNT\GREETING\MAILOPT.WAV")
 testwav ("c:\FOCALPNT\GREETING\MAIN_GR2.WAV")
 testwav ("c:\FOCALPNT\GREETING\MAIN_GRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\MBOX_OPT.WAV")
 testwav ("c:\FOCALPNT\GREETING\DATACALL.WAV")
 testwav ("c:\FOCALPNT\GREETING\EIGHT.WAV")
 testwav ("c:\FOCALPNT\GREETING\EIGHTY.WAV")
 testwav ("c:\FOCALPNT\GREETING\ELEVEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\EMAILGRT.WAV")
 testwav ("c:\FOCALPNT\GREETING\EMAILN.WAV")
 testwav ("c:\FOCALPNT\GREETING\9TEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\BEGIN2SP.WAV")
 testwav ("c:\FOCALPNT\GREETING\CON_FAIL.WAV")
 testwav ("c:\FOCALPNT\GREETING\BEGIN_SP.WAV")
 testwav ("c:\FOCALPNT\GREETING\CONF_FFN.WAV")
 testwav ("c:\FOCALPNT\GREETING\7TEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\8TEEN.WAV")
 testwav ("c:\FOCALPNT\GREETING\TWELVE.WAV")
 testwav ("c:\FOCALPNT\GREETING\100.WAV")
 testwav ("c:\FOCALPNT\GREETING\GRT_0001.WAV")

 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\CDCF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\CPEF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\CPF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\CPJF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\DFF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\FFF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\LPEF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\MFF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\OBFF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\PNUIF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\RPSF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\RTCF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\SPF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\TCOF.WAV")
 testwav ("C:\DRVLIB\PRINT\LEXMARK\X86\TYF.WAV")

 testwav ("C:\Aol40\drop.wav")
 testwav ("C:\Aol40\filedone.wav")
 testwav ("C:\Aol40\goodbye.wav")
 testwav ("C:\Aol40\im.wav")
 testwav ("C:\Aol40\welcome.wav")
 testwav ("C:\Aol40\gotmail.wav")
 testwav ("C:\Aol40\buddyin.wav")
 testwav ("C:\Aol40\buddyout.wav")

 testwav ("C:\Program Files\Lotus\Weblicator\IMAGES\SPLASH.WAV")
 testwav ("C:\Program Files\PowerTools\ptim.wav")
 testwav ("C:\Program Files\NetMeetingNT\RingIn.wav")
 testwav ("C:\Program Files\NetMeetingNT\TestSnd.wav")
 testwav ("C:\Program Files\NetMeetingNT\Blip.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\ButtonB.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\ButtonF.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\ButtonR.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\ButtonS.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\Flash1.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\Menutick.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\Menufly.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\msnnotif.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\NavPop1.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\NavPop2.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\Select1.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\folmsg.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\folstart.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\menufly2.wav")
 testwav ("C:\Program Files\OnMSN\Sounds\folnewmsg.wav")
End Sub
 '======================================================================
 ' You will just hear a DING for missing waves '========================================================================