Уважаемый KukLP))) .. Мучался целый день со звуком.. и сделал все! Добрые люди помогли)))... Но вот щас возникла следующая проблема:  
Я же получаю данные в excel по DDE.. и когда пропадают данные (числа) и вместо них в ячейках появляются хрень -  "#####"  и  "#N/A"   , то - Private Sub Worksheet_Calculate()  
выдает 'debug'(и ексель останавливается) . Один приятель по памяти и наспех написал код:  
 
 
 
Public Sub Process_Value(ByVal X_Coord As Long, ByVal ValueName As String, ByVal Value As Variant)  
   Dim TmpValue As Variant  
   Dim LastIndex As Long  
       
   ' if we've read and non-numeric value, then replace it by ### in the grid  
   If IsNumeric(Value) Then  
       TmpValue = Value  
   Else  
       TmpValue = "####"  
   Else  
       TmpValue = "#N/A"  
   End If  
End Sub  
 
 
 
Но он почему то не работает(((..   Скажите плиз, есть ошибка в коде или нет.. и куда этот код вставлять что бы макрос Worksheet_Calculate() больше не ругался на "#####" и "#N/A"  ??

{quote}{login=Виктор Палыч}{date=11.09.2012 04:06}{thema=}{post}Но он почему то не работает(((..{/post}{/quote}  
потому что в нём два Else на один If

Особо не ломая голову так:  
 
Private Sub Worksheet_Calculate()  
   If IsError([D17]) Then Exit Sub
   If IsError([B17]) Then Exit Sub
   If IsError([E17]) Then Exit Sub
 
   '...  
End Sub