1730 With ObjXL.ActiveWorkbook.ActiveSheet
1740 For i = intRowPos To intMaxRecordCount + intRowPos
1750 If .Cells(i, "B").Value <> .Cells(i - 1, "B").Value Then
1755 '.Range(.Cells(i, "B"), .Cells(i, "H")).Font.FontStyle = "Bold"
'.Cells(i, 33).Value = .Cells(i, 3).Value
1760 OtherColor = Not OtherColor ' this activates the every other group for greenbar
1770 Else
1780 If OtherColor Then
'.Range(.Cells(i, "B"), .Cells(i, "C")).Font.ColorIndex = 16 'metalic gray to column B
1790 .Range(.Cells(i, "B"), .Cells(i, "X")).Interior.ThemeColor = xlThemeColorAccent3 ' light green bar to column U
1800 .Range(.Cells(i, "B"), .Cells(i, "X")).Interior.TintAndShade = 0.799981688894314
1810 .Range(.Cells(i - 1, "B"), .Cells(i - 1, "X")).Interior.ThemeColor = xlThemeColorAccent3 ' light green bar to column U for first instance
1820 .Range(.Cells(i - 1, "B"), .Cells(i - 1, "X")).Interior.TintAndShade = 0.799981688894314
1830 Else
'.Range(.Cells(i, "B"), .Cells(i, "C")).Interior.ThemeColor = xlThemeColorAccent1
'.Range(.Cells(i, "B"), .Cells(i, "C")).Font.ColorIndex = 16 'metalic gray
1840 End If
1850 End If
1860 Next i
1870 End With