Beep & Flash

I am trying to have a number if >10 "Flash" and "Beep".

I can not get it to both.

The first code is in a "Module" and the second code is in the "Sheet Code".


Option Explicit

Sub Wait(tSecs As Single)
' Timer to create a pause
Dim sngSec As Single

sngSec = Timer + tSecs
Do While Timer < sngSec
DoEvents
Loop
End Sub


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer
If Target.Address "$A$1" Then Exit Sub
If Target.Value > 10 Then
For x = 1 To 5