title: Apply function/code to every row in a worksheet using VBA
body: <p>I have a macro which applies conditional formatting to a row which highlights specific values
  I was wondering if there was a way to apply it to multiple rows (I want it to run from rows 18-79)
  As you can see from my code below, the function has to be adjusted for each row individually (I have done 3).
  I was wondering if there was an easier way to apply this rather than repeat and adjust for all the rows I need.</p>
  
  <pre><code>Sub Highlight()
  '
  ' Highlight good values
  
  Application.ScreenUpdating = False
  
      Dim ws As Worksheet
  
  
      For Each ws In ActiveWorkbook.Worksheets
  
      ws.Activate
  
  
      Rows("18:18").Select
      Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
          Formula1:="=$C$18", Formula2:="=$D$18"
      Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
      With Selection.FormatConditions(1).Font
          .Color = -16752384
          .TintAndShade = 0
      End With
      With Selection.FormatConditions(1).Interior
          .PatternColorIndex = xlAutomatic
          .Color = 13561798
          .TintAndShade = 0
      End With
      Selection.FormatConditions(1).StopIfTrue = False
  
      Rows("19:19").Select
      Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
          Formula1:="=$C$19", Formula2:="=$D$19"
      Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
      With Selection.FormatConditions(1).Font
          .Color = -16752384
          .TintAndShade = 0
      End With
      With Selection.FormatConditions(1).Interior
          .PatternColorIndex = xlAutomatic
          .Color = 13561798
          .TintAndShade = 0
      End With
      Selection.FormatConditions(1).StopIfTrue = False
  
      Rows("20:20").Select
      Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
          Formula1:="=$C$20", Formula2:="=$D$20"
      Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
      With Selection.FormatConditions(1).Font
          .Color = -16752384
          .TintAndShade = 0
      End With
      With Selection.FormatConditions(1).Interior
          .PatternColorIndex = xlAutomatic
          .Color = 13561798
          .TintAndShade = 0
      End With
      Selection.FormatConditions(1).StopIfTrue = False
  
      Next ws
  
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>