Range.Rows\nproperty<\/strong>.<\/p>\n\n\n\nAs we know Rows<\/strong> property represents all rows inside the selected range. We have to use indexes to distinguish single rows.<\/p>\n\n\n\nSub HighlightEvenRows()\n Set myRange = Range(\"B2:C7\")\n For i = 1 To myRange.Rows.Count\n If i Mod 2 = 0 Then\n myRange.Rows(i).Interior.ThemeColor = xlThemeColorAccent6\n End If\n Next i\nEnd Sub<\/code><\/pre>\n\n\n\nCode explanation:<\/strong><\/p>\n\n\n\n2.<\/strong> First, we\nassign the selected range to the myRange<\/strong>\nvariable, so we don\u2019t have to use Range(\u201cB2:C7\u201d)\nall the time.<\/p>\n\n\n\n3.<\/strong> The loop will\ngo from 1 to myRange.Rows.Count, which is 6.<\/p>\n\n\n\n4.<\/strong> For each\niteration, it will check whether there is a reminder\nafter division by 2 (modulo). In other\nwords, it will highlight every other row.<\/p>\n\n\n\nThis is the result.<\/p>\n\n\n\n