Exсel поиск значения по всей книге в зависимости от цвета?

Question

[lid2pro]

Добрый день,

есть эксель книга, где много листов и в листах идет учет клиентов.
Есть лист Проверка, где в A1 вводим ФИО и макросом ищем по всей книге где встречается это ФИО. Дело в том, что в листах ФИО раскрашены по цветам. Как сделать так, чтоб поиск был только по зеленым цветам? Как включить это в проверку? в VBA не силен, код макроса ниже

Sub Ca()
Dim w As Worksheet, s$, a$, c As Range, d As Range
  For Each c In Range("A2", Cells(Rows.Count, "A").End(xlUp))
    s = ""
    For Each w In Worksheets
      If Not w Is ActiveSheet Then
        Set d = w.Cells.Find(c, , xlValues, xlWhole)
        If Not d Is Nothing Then
          a = d.Address
          Do
            s = s & ", " & w.Name & " - " & w.Cells(1, d.Column)
            Set d = w.Cells.FindNext(d)
          Loop Until d.Address = a
        End If
      End If
    Next
    c.Offset(, 1) = Mid(s, 3)
  Next
End Sub

Comments

[h8nor]

Если код рабочий, то так If w.Tab.ColorIndex = 10 Then вместо If Not w Is ActiveSheet Then

[lid2pro]

Дѣаволъ, Это добавляет в условие цвет таба (листа). А мне нужно чтоб поиск фильтровал цвет ячейки. Т.е. есть листы, в них ячейки с фамилиями и заливкой разных цветов. Нужно чтоб не только искало фамилию, но и чтоб при этом был определенный цвет ячейки. Как это сделать?

[h8nor]

lid2pro, невнимательно прочитал. Посмотрите здесь.