Ciao,
come sempre la tua immediata disponibilità è lodevole (dico unica).
La macro gira senza restituire nessun errore, ma non colora la lingiuetta del foglio in cui c'è la cella colorata di rosso ColorIndex 3. Non riesco a capirne il motivo, perché i riferimenti che hai dato sono generali, quindi dovrebbe essere contemplata anche la situazione del file processato... Provo a fare altri tentativi, con altri file; se vi sono novità posto l'esito.
Grazie assai, buona serata
eZio

Ciao,

lo sfondo della cella, quello che si ottiene nella barra multifunzione con Home > Carattere > Colore riempimento (icona della latta di vernice che sta versando colore). Credo che Interior.ColorIndex = 3 sia il codice giusto.
Nel frattempo sto provando con altri file, ma non succede nulla, né viene restituito alcun errore. Non riesco a capirne il motivo, dato che- nonostante io sia solo alle primissime armi- intuisco che la sintassi che hai usato è come un passepartout, non dà riferimenti definiti di un Range che eventualmente, se non rispettato, fa inceppare il lavoro della macro.
Grazie assai, buona serata
eZio


EDIT.
una domanda, molto probabilmente sciocca:
-in
For Each cl In Rng
hai precedentemente definito il Rng, ma cl lavora anche se non gli dai una definizione?
-In base alla tabella redatta dalla sub ShowColor (che mi hai scritto in un precedente 3d) il verde ColoIndex10 equivale a 32768, che non vedo scritto nella macro, come non vedo alcun riferimento alla linguetta del foglio... (scusa assai la mia profonda ignoranza in materia)

Ciao,
You're The Better (absolute). Tutto a posto. ;-))
Dato che la macro restituiva Errore alla riga Rng.Select forse perché nei fogli vi sono diverse tabelle (come si può vedere anche nel file esempio), prima di disturbarti ancora mi sono permesso di dare un'ulteriore "aggirata d'ostacolo", alla Ulisse per intenderci:

Sub zColoraLinguetta()
Dim ws As Worksheet
For n = 1 To Worksheets.Count
With Sheets(n)
Cells.Select
Set Rng = .UsedRange
'-------------Rng.Select
For Each cl In Rng
If cl.Interior.ColorIndex = 3 Then
.Tab.Color = 32768
Exit For
End If
Next
Range("A1").Select
End With
Set Rng = Nothing
Next
End Sub

in tal modo prima seleziono tutta l'area del foglio e poi, quando ha finito il lavoro, seleziono la cella A1
(ora tutto gira bene, ma se ho commesso un'asinata correggimi!!)

Grazie infinite, come sempre problema risolto brillantemente. Buona serata,
eZio

Ciao,
Grazie della spiegazione. Ho immediatamente rimediato alla mia asinata :-)))))
Grazie assai, buon pomeriggio
eZio