VBA excel: подсчет количества ячеек закрашеных выбранным цветом