Ciao
scusami, anche per farti capire, se per esempio tu volessi colorare di rosso le celle da A1 a E1, faresti:
range("A1:E1").Interior. ColorIndex=3
Ora al posto dei due 1, nel tuo caso devi mettere il numero della riga da colorare.
Tale numero è nella variabile lRiga, pertanto:
sh2.Range("A" & lRiga & ":E" & lRiga).Interior.ColorIndex = 3
saluti
[Modificato da dodo47 02/02/2018 17:24]
Domenico
Win 10 - Excel 2016