Guru do Excel e Power BI

Bom dia , Senhores!



Tenho uma planilha excel de verificação de moedas com api de 3 sites, com um codigo vba simples que vai me dar bepp quando chegar ao peço que quero!



O problema é que utilizo outras planilhas durante o dia e esta acionando o beep sempre que troco de planilha ! Alguém sabe uma forma de executar isso que quero fazer e trabalhar nas minhas planilhas sem dar problema na macro com vba!



Segue o codigo!



Sub Preço() 'Se a sua rotina tiver outro nome aqui


Set Target = Range("B1")
Set Target1 = Range("B9")
Set Target2 = Range("B8")
Set cond = Range("B17")
Set cond1 = Range("B18")
Set cond2 = Range("B19")

If Target.Value >= cond.Value Then
Dim I

For I = 1 To 3 ' Loop 3 times.
Beep ' Sound a tone.
Next I

End If


If Target1.Value >= cond1.Value Then

Dim j
For j = 1 To 3 ' Loop 3 times.
Beep ' Sound a tone.
Next j
End If

If Target2.Value <= cond2.Value Then

Dim m
For m = 1 To 3 ' Loop 3 times.
Beep ' Sound a tone.
Next m
End If

Call timer
End Sub

Sub timer()
Application.OnTime Now + TimeValue("00:00:10"), "Preço" 'não esqueça de editar aqui
End Sub