Public Function Check_PaintCells(rRange As Range, sCode As String) As Boolean
' По указанному коду ищет в таблице цветовой палитры ячейку - образец и, если в колонке
' "Красить" найденной строки значение "Да", красит указанный диапазон ячеек
' в соответствующий цвет (фон и символы) и возвращает true
' В противном случае возвращается false
Dim i As Integer
Dim j As Integer

   Check_PaintCells = False
   i = Find_ManualTableRow("Цветовая палитра выделения ошибок при проверке данных")
   If i > 0 Then
      For j = i + 1 To i + 10     ' Таблица не должна быть более 9 строк
         If Worksheets("Manual").Cells(j, 5).Value = sCode Then
            ' Указанный код найден
            If Worksheets("Manual").Cells(j, 6).Value = "Да" Then
               ' Установлен режим окраски для этого кода
               rRange.Interior.Color = Worksheets("Manual").Cells(j, 3).Interior.Color
               rRange.Font.Color = Worksheets("Manual").Cells(j, 3).Font.Color
               Check_PaintCells = True
            Else
               ' Не установлен режим окраски для этого кода ошибки
               Check_PaintCells = False
            End If
            Check_PaintCells = True
            Exit For
         End If
      Next j
   End If

End Function

Public Function Find_ManualTableRow(sTableName As String) As Integer
' Функция ищет на листе Manual указанную таблицу (колонка A) и, если находит,
' возвращает ее номер. Иначе возвращается -1
Dim i As Integer
Dim ret As Integer
   
   ret = -1
   With Worksheets("Manual")
      For i = 1 To 200
        If .Cells(i, 1).Value = sTableName Then
           ret = i
           Exit For
        End If
      Next i
   End With
   Find_ManualTableRow = ret
   
End Function