Loop through rows in range

[hughhuyton]

I have this code that runs through each cell of a range and then highlights the highest value in yellow. How would I incorporate a loop to have it loop through each row of the range for it to highlight the maximum value in each row.

<style type="text/css">p.p1 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545}p.p2 {margin: 0.0px 0.0px 0.0px 0.0px; font: 12.0px 'Helvetica Neue'; color: #454545; min-height: 14.0px}</style>Private Sub HighestValue()
Dim cell As Range




  For Each cell In ActiveSheet.Range("A1:U1")
    If cell.Value = Application.WorksheetFunction.Max(Range("A1:U1")) Then
      cell.Interior.ColorIndex = 6
    Else
      cell.Interior.ColorIndex = xlNone
    End If
  Next
End Sub

 

[Tim_Excel_]

Sub HiLighter()
    ActiveSheet.UsedRange
    Dim rA As Range, r, wf As WorksheetFunction
    Dim V As Variant, RWW As Range, rr As Range
    Set rA = Intersect(Range("A:A"), ActiveSheet.UsedRange)
    Set wf = Application.WorksheetFunction
    For Each r In rA
        Set RWW = Intersect(r.EntireRow, ActiveSheet.UsedRange)
        If wf.CountA(RWW) = 0 Then Exit Sub
        V = wf.Max(RWW)
        For Each rr In RWW
            If rr.Value = V Then
                rr.Interior.ColorIndex = 6
                GoTo getaway
            End If
        Next rr
getaway:
    Next r
End Sub

Thanks to Excel VBA: Excel VBA: Find the maximum value in each row and highlight it - Stack Overflow

Just make sure you change the values to your liking