Using Multiple Tests and Sounds With Worksheet Macros

From: Carl <Carl_at_discussions.microsoft.com>
Date: Fri, 30 Jun 2006 21:48:01 -0700

I am currently using the following to generate a ringing sound if cell B13 is greater than cell B14 and it works fine. I cannot find a way to get it to perform a second logit test and make second sound (chimes) if the two cells are equal. Is there a way to do this? Thanks in advance.  

Private Sub Worksheet_Change(ByVal Target As Range)

    If Sheets("Sheet2").Range("b13") > Sheets("Sheet2").Range("b14") Then

        Application.Run "Ringing"
    End If
End Sub Received on Fri Jun 30 2006 - 21:48:01 PDT