Прикольно: оказывается, этот вопрос я уже задавал в апреле 2010 г.:  
http://www.planetaexcel.ru/forum.php?thread_id=15242  
но тогда не добился решения и забросил тему.  
А сейчас опять "навеяло"

Sub Check_CondForm()  
Dim Ndx As Long  
Dim FC As FormatCondition  
Dim rCell As Range, rUFCells As Range  
Set rUFCells = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)  
If rUFCells Is Nothing Then Exit Sub  
For Each rCell In rUFCells  
For Ndx = 1 To rCell.FormatConditions.Count  
       Set FC = rCell.FormatConditions(Ndx)  
If FC.Type = xlExpression Then  
           If IsError(Application.Evaluate(FC.Formula1)) Then  
MsgBox "HHHHH"  
              End If  
               End If  
          Next Ndx  
Next rCell  
End Sub

Проверил.  
Работает.  
Ещё раз спасибо за подсказку.  
 
По ходу дела встал вопрос: никто не подскажет как называется диалог условного форматирования?  
Хочу при обнаружении ошибки в УФ ячейки выделить её и открыть диалог редактирования УФ

Юрий, спасибо за ссылку.  
Попробую докрутить.

Блин!  
А я порадовался...  
В самом деле, с русскими именами формул не работает :(  
А как быть то?

А может быть можно не РЕЗУЛЬТАТЫ вычисления формул УФ проверять на ошибки, а  проверять, не содержит ли текст формулы волшебное слово #ОШИБКА, которое заменяет в формуле аргумент, когда удаляют ячейку, содержащую его?

Что-то я не понял, что получится?  
В А1 вводим формулу из .FormatConditions(1).Formula1 ,а потом пытаемся её вычислить что ли? (хотя, наверное, это надо делать на новом листе, т.к. А1 на рабочем проверяемом листе вполне может быть занята)    
Завтра попробую, но, похоже, опять будут "вилы" с ложными ошибками evaluate на русскоязычных функциях.  
Всё-таки я бы попробовал отлавливать слово #ОШИБКА в аргументах функции, т.к. именно так калечатся формулы при удалении ячеек-аргументов.  
 
------------  
30405

Сам разобрался: забыл "заэкранировать" спец.символ # квадратными скобками []
Вот так отлично отлавливается удаляемый аргумент:  
Sub tttt()  
Debug.Print ActiveSheet.[A1].FormatConditions(1).Formula1
Debug.Print ActiveSheet.[A1].FormatConditions(1).Formula1 Like "*[#]ССЫЛКА!*"
End Sub

Посмотрел, поискал, а, оказывается, можно было бы и так догадаться: в английской локали вместо #ССЫЛКА! выводится #REF!    
Ну, соответственно, и проверка будет:  
If rCell.FormatConditions(nFC).Formula1 Like "*[#]REF!*" Then

nerv,  
на самом деле - переводить формулы и проверять их слишком муторно.  
ИМХО, вполне достаточно проверять их на наличие битых ссылок на ячейки-аргументы.  
Ведь само УФ делает обычно человек достаточно продвинутый и потому вполне можно с большой долей вероятности принять за исходную предпосылку то, что изначально оно работает правильно :)  
Вот я "полирнул" процедурку с проверкой формул УФ на #ССЫЛКА! и #REF!:  
Sub Check_CondForm()  ' проверить формулы условного форматирования ячеек на наличие ошибок типа #ССЫЛКА!  
  Dim rCell As Range, rFCCells As Range, nFC&  
  Set rFCCells = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)  
  If rFCCells Is Nothing Then Exit Sub  
  For Each rCell In rFCCells  
     For nFC = 1 To rCell.FormatConditions.Count  
        With rCell.FormatConditions(nFC)  
           If .Type = xlExpression Then  
              If .Formula1 Like "*[#]ССЫЛКА!*" Or .Formula1 Like "*[#]REF!*" Then
                 rCell.Activate  
                 Select Case MsgBox("Обнаружена ошибка аргумента формулы условного форматирования ячейки " & rCell.Address(0, 0) & vbCrLf & _  
                                    "Условие " & nFC & " : " & .Formula1 & vbCrLf & vbCrLf & _  
                                    "Выберите действие:" & vbCrLf & _  
                                    """ДА"" - Исправить, ""НЕТ"" - Искать дальше, ""ОТМЕНА"" - Выйти", _  
                                    vbYesNoCancel + vbInformation, "Ошибка формулы УФ!")  
                    Case vbYes: Application.Dialogs(xlDialogConditionalFormatting).Show ' xlDialogConditionalFormatting не имеет аргументов, поэтому приходится активизировать ячейку  
                    Case vbCancel: Exit Sub  
                 End Select  
              End If  
           End If  
        End With  
     Next nFC  
  Next rCell  
End Sub  
 
только что-то не соображу, нужно ли проверять ещё и Formula2 или фиг с ним?

Невзирая на мнение nerv, который как обычно со мной не согласен :), я всё-таки допилил свой вариант, проверяющий УФ на отсутствие ошибок только в аргументах до финального состояния. Теперь процедура проверяет оба способа задания УФ (Значение ячейки и Формула).  
Sub Check_CondForm()  ' проверить формулы условного форматирования ячеек на наличие ошибок типа #ССЫЛКА! и #REF!  
'http://www.planetaexcel.ru/forum.php?thread_id=47802 ,  http://www.excelworld.ru/forum/2-2901-1#31544  
   Dim rCell As Range, rFCCells As Range, nFC&, sFormula$  
   Set rFCCells = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)  
   If rFCCells Is Nothing Then Exit Sub  
   For Each rCell In rFCCells  
       For nFC = 1 To rCell.FormatConditions.Count  
       With rCell.FormatConditions(nFC)  
           sFormula = .Formula1  
           If .Type = xlExpression Then   ' xlExpression==2  
               sFormula = "Формула " & .Formula1  
           ElseIf .Type = xlCellValue Then    ' xlCellValue==1  
               ' xlBetween == 1 xlNotBetween == 2 xlEqual == 3 xlNotEqual == 4 xlGreater == 5 xlLess == 6 xlGreaterEqual == 7 xlLessEqual == 8  
               sFormula = "Значение " & Choose(.Operator, "между", "вне", "равно", "не равно", "больше", "меньше", "больше или равно", "меньше или равно") & " " & .Formula1  
               If .Operator < 3 Then sFormula = sFormula & " и " & .Formula2  
           End If  
           If sFormula Like "*[#]ССЫЛКА!*" Or sFormula Like "*[#]REF!*" Then
               rCell.Activate  
               Select Case MsgBox("Ошибка аргументов формулы условного форматирования ячейки " & rCell.Address(0, 0) & vbCrLf & _  
                   "Условие " & nFC & " : " & sFormula & vbCrLf & vbCrLf & _  
                   "Выберите действие:" & vbCrLf & _  
                   """ДА"" - Исправить, ""НЕТ"" - Искать дальше, ""ОТМЕНА"" - Выйти", _  
                   vbYesNoCancel + vbInformation, "Ошибка формулы УФ!")  
                   Case vbYes: Application.Dialogs(xlDialogConditionalFormatting).Show      ' xlDialogConditionalFormatting не имеет аргументов, поэтому приходится активизировать ячейку  
                   Case vbCancel: Exit Sub  
               End Select  
           End If  
       End With  
       Next nFC  
   Next rCell  
End Sub

не приложилась...