Crie um novo Modulo e mova as instruções abaixo para ele, estas declarações não podem estar no Evento da Worksheet :

#If VBA7 Then
Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

[]s

Erro de compilação:

'Sub' ou 'Function' não definida

Está amarelo nessa linha

Private Sub Worksheet_Change(ByVal Target As Range)

e ficou selecionado isso

Call sndPlaySound(

Você Criou um Novo Modulo e colou as linhas que eu citei ?

Este erro é devido a falta delas, ela faz a chamada a API - "sndPlaySound"

[]s

criei um novo modelo e só coloquei isso

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.ScreenUpdating = False

Dim Preço, Parar, Objetivo
Dim AudioParar, AudioObj As String

AudioParar = ThisWorkbook.Path & "" & "beep1.wav"
AudioObj = ThisWorkbook.Path & "" & "beep2.wav"

Preço = Range("A1").Value
Parar = Range("B1").Value
Objetivo = Range("C1").Value

Select Case Preço

Case Is <= Parar
Call sndPlaySound(AudioParar, 0)
Range("D1").Value = "STOP"

Case Is >= Objetivo
Call sndPlaySound(AudioObj, 0)
Range("D1").Value = "OBJETIVO"

Case Else
Range("D1").Clear

End Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Faz o teste e veja se funciona !

OK, falha minha, devia ter perguntado antes o que queria quando postou somente a rotina no primeiro post.

Pela sua resposta, percebo que não tem afinidade com o VBA, sendo assim, onde eu disse:
Evento da Worksheet São as Rotinas colocadas diretamente a serem executadas na Aba em que são colocadas, "Worksheet_Change" se refere as alterações efetuadas somente nesta aba, ou seja clicando com o Botão Direito na Aba em questão e selecionando "Exibir Codigo", a tela do VBA que aparecerá é referente a esta Aba somente, e o Evento citado pertence somente a ela.

Então, as instruções que colocou em um Modulo separado (Worksheet_Change), apague e cole no modulo da Aba em que quer controlar as alterações, e as instruções referentes a API (#If VBA7 Then ....) coloque no Modulo que criou.
Agora irá funcionar corretamente.

[]s

Deu certo
Em 1998 cheguei ler um pequeno livro e fiz uma programinha, mas depois nunca mais mexi

Obrigado !

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.