Ivan33,
Ваши часики поставила - просто, мило. и не навязчиво. КАК скрестить мне их вот с этим , что бы каждые Х секунд все повторялось в т.ч. со звуком

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function PlayWavSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal LpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Worksheet_Change(ByVal Target As Range)
Negativ
End Sub

Sub Negativ()
Dim R As Range
Dim C As Variant
Set R = ActiveSheet.Range("a3:a150")

For Each C In R
If C.Value < 0 Then
Beep 7, 500
PlaySoundO
Exit For
End If
Next C
End Sub

Public Sub PlaySoundO()
Dim SoundName As String
SoundName = "C:\WINDOWS\Media\tada.wav"
PlayWavSound SoundName, 0
End Sub