Runtime Error - Object Required

[darkblueblood]

I am trying to play a sound file according to what is entered within a cell. The code I have is:

If Target.Cells.Value = 0 Then
Call PlaySoundFile("C:\Users\Number1.wav")
End If

This code works fine if I put it at the beginning of the worksheet_change on the sheet, however, I have tried to move the calling of the sounds into a separate sub so I can use it in other ways, but get an object required runtime error.

Any ideas why it works ok within worksheet_change and why it doesn't in a separate sub that is just getting called from worksheet_change?

Also, any ideas on how to change this so I can get it to work?

Thanks in advance

[Leon V (AW)]

what is the sub for playsoundfile?

Please Login or Register  to view this content.

[darkblueblood]

The sub for the playsoundfile is:

Sub PlaySoundFile(SoundFilePath As String)

Dim Ret As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_FILENAME = &H20000


Ret = PlaySoundA(SoundFilePath, 0&, SND_ASYNC Or SND_NODEFAULT Or SND_FILENAME)

End Sub