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