Господа программисты!!.. чо надо написать дальше что бы при достижении значений ячейка С10 окрашивалась в красный цвет и запоминала это  
 
 
Private Sub Worksheet_Calculate()  
 
If (Range("E17").Value > 20 And Range("B17").Value > 10) Then  
 
а если    
 
If (Range("E10").Value > 20 And Range("B17").Value > 10) Then  
 
то ячейка С10 окрашивалась в зеленый цвет и так же запоминала это до следующих изменений по первому условию... то есть: если так - то красный, а если так то зеленый.. .  
Подскажите плиз..

Имеется такой макрос...    
 
Private Declare Function PlaySound Lib "winmm.dll" _  
Alias "PlaySoundA" (ByVal lpszName As String, _  
ByVal hModule As Long, ByVal dwFlags As Long) As Long  
 
Private Sub Worksheet_Calculate()  
 
If (Range("D17").Value > 5 And Range("B17").Value > 3) Then  
WAVFile = "01.wav"  
  WAVFile = ThisWorkbook.Path & "\" & WAVFile  
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)  
Else  
If (Range("E17").Value > 5 And Range("B17").Value > 3) Then  
WAVFile = "02.wav"  
  WAVFile = ThisWorkbook.Path & "\" & WAVFile  
  Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)  
End If  
 
End If  
 
End Sub  
 
 
Так вот задача такая -- сделать так что бы макрос автоматически запускался при открытии книги через минуту! А так же -- как сделать так, что бы файл воспроизводился при достижении нужных значений всего 1 или 2 раза....  Господа требуется ваш мудрый совет..