Praticamente perfetto. Un ultimo dettaglio: volendo "ripulire" le celle colorate prima di uscire dal file ho utilizzato le seguenti istruzioni:
Sub Cancella()
For i = 3 To 100
Sheets("foglio1").Cells(i, 3).ClearFormats
Next
End Sub
Che ne pensi?
Grazie infinite!
P.S. una curiosità: a cosa serve esattamente l'istruzione
colore = 218 - colore
e perché hai impostato
colore=30 nella routine di init?