Ciao,
in QUESTO 3d il mio problema era nascondere (e poi scoprire) le righe NON bordate di una tabella.
Ora ho delle tabelle (identica tipologia) che anziché avere delle celle bordate hanno solo celle colorate, con diversi colori a seconda dei codici.
Mantenendo l'impianto compositivo della macro
Sub nascondi()
Dim ctrl As Boolean
uriga = Range("C" & Rows.Count).End(xlUp).Row
n = 0
ctrl = False
Set area = Range("C3:G" & uriga)
For Each cl In area
n = n + 1
If cl.Borders.LineStyle = xlContinuous Then
ctrl = True
End If
If n = 5 Then
If Not ctrl Then
Rows(cl.Row).Hidden = True
End If
ctrl = False
n = 0
End If
Next
set area=Nothing
End Sub

con che codice devo sostituire l'istruzione di nascondere tutte le righe che non hanno celle colorate (il Range è il medesimo)?
Credo che il codice da sostituire sia questo
If cl.Borders.LineStyle = xlContinuous Then
ma non conosco la sintassi esatta per intervenire...
Come al solito,
Grazie infinite e buon pomeriggio
eZio

salve
modifica così:
If cl.Interior.ColorIndex >= 0 Then
saluti
Giap

---