Mit der folgenden Routine können Sie Wave-Dateien abspielen:

     Fügen Sie neues Modul ein.
     Fügen Sie folgenden Code ein:

   'Excel 5.0/95
   Declare Function sndPlaySound Lib "winmm.dll" _
     Alias "sndPlaySoundA" (ByVal lpszSoundName _
     As String, ByVal uFlags As Long) As Long

   Sub PlayWave()
      Call sndPlaySound("c:\winnt\media\Der Microsoft Sound.wav", 1)
   End Sub

   'Excel 97/2000
   Declare Function sndPlaySound32 Lib "winmm.dll" _
      Alias "sndPlaySoundA" (ByVal lpszSoundName _
      As String, ByVal uFlags As Long) As Long

   Sub PlayWave()
      Call sndPlaySound32("c:\winnt\media\Der Microsoft Sound.wav", 1)
   End Sub

      Den Dateinamen der Wave-Datei passen Sie bitte entsprechend an.

     Die nachfolgende Beispiel-Datei zeigt Ihnen,
     wie Sie die Soundfunktion beim Klicken in eine beliebige Zelle anwenden können.
     Aufgerufen wird dies wie folgt:

   Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
      Call PlayWave
   End Sub