Prova così:
codice:a = Evaluate("Colori!G" & i)
Prova così:
codice:a = Evaluate("Colori!G" & i)
Grazie mille gibra, confermo che il tuo suggerimento per quanto riguarda Evaluate funziona.
In merito invece alla funzione TROVA non riesco ancora a risolvere:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=SE.ERRORE(TROVA(Colori!$B$2;B3);""no"")<>""no"""
Se riesci a darmi qualche consiglio ne sarei grato
Grazie mille