Poišči barvne celice

[slavkomoharic]

Potrebujem makro,ki bi na določenem listu poiskal celice, ki so pobarvane z npr.rumeno barvo in bi jih oblikoval kot celice katerih vsebina ni skrita.
Hvala za pomoč.

[admin]

Pozdravljeni,

Koda: Izberi vse

    Dim celica
    
    For Each celica In Range("a1:aa1000").Cells
        If (celica.Interior.ColorIndex = 6) Then Selection.FormulaHidden = False
    Next