View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
NG99 NG99 is offline
external usenet poster
 
Posts: 2
Default Playing a sound file from entry in cell

I have recently used and adapted code from a post on here which is shown
below and works great. However does anybody know how I can (or if it can be
done?) adapt this further so that entering a different "name" plays a
different sound file in the same cell i.e. C7 in this case.

Many thanks,
Nige


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

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$7" Then
If Target.Value = "Lawrence" Then
sndPlaySound32 "C:\Documents and Settings\LAPTOP\My Documents\homer_31.wav", 0
End If
End If
End Sub
--
NG99