Buongiorno,

ho fatto una piccola routine che mi permette di trovare e colorare un valore in una cella, quale istruzione devo utilizzare per colorare l'intera riga e non la singola cella?

Grazie come sempre.

 Sub trovaEcolora()
    On Error Resume Next
    inpt = InputBox("INSERIRE sezione")
    Range(col & 3).Select
    Cells.Find(What:=inpt, After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
    With Selection.Interior
         Range("A:G").Select
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub