Sub ColorCodeErrorGroup()
NumRows = ActiveSheet.UsedRange.Rows.Count 'Stores the number of rows
ErrorGroupMax = Cells(NumRows, 2) 'Stores the highest error group
ErrorGroupStart = Cells(7, 2) 'Stores the starting error group
Dim ColorList(1 To 8) As Integer
ColorList(1) = 33
ColorList(2) = 34
ColorList(3) = 35
ColorList(4) = 36
ColorList(5) = 37
ColorList(6) = 38
ColorList(7) = 39
ColorList(8) = 40
For x = 7 To NumRows
Cells(x, 2).Select ActiveCell.Interior.ColorIndex = ColorList((ActiveCell.Value) Mod 8 + 1) ActiveCell.Interior.Pattern = xlSolid
Next x Cells(1, 1).Select
End Sub
Sub Propogate_Colors()
Columns("B:B").Select S
election.Copy
Columns("A:AG").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B13").Select
End Sub
