betinget formattering + lyd

Ikke ved betinget formatering, men denne funktion skulle kunne afspille lyd hvis en betingelse er nået.
fx. vil den afspille en wav.fil når A1 > 1000
=alarm(A1; ">1000")

Private Declare Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long


Function Alarm(Cell, Condition)
    Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
    On Error GoTo ErrHandler
    If Evaluate(Cell.Value & Condition) Then
        WAVFile = ThisWorkbook.Path & "\sound.wav"
        Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
        Alarm = True
        Exit Function
    End If
ErrHandler:
    Alarm = False
End Function

Linien WAVFile = ThisWorkbook.Path & "\sound.wav" skal du selvfølgelig ændre til det bibliotek hvor din wav-fil ligger.