vbaprobleme beim beep erzeugen

ich habe ein kleines problem. ich möchte am ende des makos einen beep erzeugen, wenn eine bedingung erfüllt ist. leider klappt dies jedoch nicht mit meiner makroversion.

ich habe nachfolgend die wesentlichen makroinhalte gepostet. das makro an sich läuft auch tadellos und Range("N1").value ist auch grösser null.

hat jemand ne idee , wie ich den beep hinbekomme?

vielen dank im vorraus

olaf

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
... '

Calculate
...
Sheets("Ergebnisse").Select
Range ("A5").Select

Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
Application.EnableEvents = True

If Sheets("Formeln").Range("N1").Value > 0 Then Beep

End Sub