Доброго времени суток! Очень актуальный вопрос.  
У меня есть работающая функция (спасибо старожилам планеты!), необходимо ее изменить.  
Нужно, чтобы проверялось, находятся ли в ячейках диапазона буквы "А", "Б", "В", "Г", "Д".  
Если выполняются условия по заливке (заливка в самой ячейке отсутствует, а соседняя через 1 - имеет заливку по образцу) и в ячейке - одна из перечисленных букв, то функция выдает значение True (иначе False).  
 
Function Color1(rRange As Range, rColor As Range)  
Dim rCell As Range  
Dim lCol As Long  
Dim vResult  
 
lCol = rColor.Interior.ColorIndex  
For Each rCell In rRange  
If rCell.Interior.Pattern = xlNone Then  
If rCell.Offset(, 2).Interior.ColorIndex = lCol Then  
vResult = WorksheetFunction.Sum(rCell) + vResult  
End If  
End If  
Next rCell  
Color1 = vResult  
End Function