Hello Golf,

I am pretty sure I found this code in this forum. I haven't tested, but it
looks right.

Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Sub PlayMe1()
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Dim retval As Long
retval = PlaySound("C:\My folder\my subfolder\wav1.wav", _
0, SND_ASYNC Or SND_FILENAME)
End Sub

HTH, Greg

"golf4" wrote in message
om...
Hi, everyone -

While watching one of my staff use my rent calculation tool this
morning, I noticed that when the initial splash screen appeared, she
would just close the "X" Close button in the upper right hand corner.
I want to prevent this.

I did my Search (proud of me, heh???), and found the exact code I
needed. To enforce the msg box, I also want to include a wav if the
Close button is pressed. I, kind of, messed with my code below, but it
doesn't seem to work ---looking to have the wav play at the same time
as the msg box.

Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
'Prevents use of the Close button'

Application.ScreenUpdating = True
DoEvents
ActiveSheet.Shapes("object 204.wav").Select
Selection.Verb Verb:=xlPrimary

If CloseMode = vbFormControlMenu Then
MsgBox "YOU SHOULD NOT BE CLOSING THIS FORM!!!"
Cancel = True
End If
End Sub

Any help would be fantastic.

Thanks,

Golf