Code:

Sub ParseColors()
Dim xy As Range, col As Integer, Cnt As Integer
Dim CI1 As Integer, CI2 As Integer, CI3 As Integer, CI4 As Integer
Dim ColourName As String
Range(Cells(2, 14), Cells(Cells(Rows.Count, 2).End(xlUp).Row, 25)).Clear 'Clear columns N:Y of previous entries
For Each xy In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp)) 'select data origin rows
Cnt = 1
CI1 = 0
CI2 = 0
CI3 = 0
CI4 = 0
For col = 0 To 11 'number of data origin rows, here: cols B to M (offsets from column 2 of 0 to 11)
If xy.Offset(0, col).Interior.ColorIndex > 0 Then
Select Case xy.Offset(0, col).Interior.ColorIndex
Case CI1
xy.Offset(0, 14) = xy.Offset(0, 14) & "_" & xy.Offset(0, col)
Case CI2
xy.Offset(0, 17) = xy.Offset(0, 17) & "_" & xy.Offset(0, col)
Case CI3
xy.Offset(0, 20) = xy.Offset(0, 20) & "_" & xy.Offset(0, col)
Case CI4
xy.Offset(0, 23) = xy.Offset(0, 23) & "_" & xy.Offset(0, col)
Case Else
Select Case xy.Offset(0, col).Interior.ColorIndex
Case 1: ColourName = "Black"
Case 2: ColourName = "White"
Case 3: ColourName = "Red"
Case 4: ColourName = "Bright Green"
Case 5: ColourName = "Blue"
Case 6: ColourName = "Yellow"
Case 7: ColourName = "Pink"
Case 8: ColourName = "Turqoise"
Case 9: ColourName = "Dark Red"
Case 10: ColourName = "Green"
Case 11: ColourName = "Dark Blue"
Case 12: ColourName = "Dark Yellow"
Case 13: ColourName = "Violet"
Case 14: ColourName = "Teal"
Case 15: ColourName = "Gray-25%"
Case 16: ColourName = "Gray-50%"
Case 33: ColourName = "Sky Blue"
Case 34: ColourName = "Light Turqoise"
Case 35: ColourName = "Light Green"
Case 36: ColourName = "Light Yellow"
Case 37: ColourName = "Pale Blue"
Case 38: ColourName = "Rose"
Case 39: ColourName = "Lavendar"
Case 40: ColourName = "Tan"
Case 41: ColourName = "Light Blue"
Case 42: ColourName = "Aqua"
Case 42: ColourName = "Aqua"
Case 43: ColourName = "Lime"
Case 44: ColourName = "Gold"
Case 45: ColourName = "Light Orange"
Case 46: ColourName = "Orange"
Case 47: ColourName = "Blue-Gray"
Case 48: ColourName = "Gray-40%"
Case 49: ColourName = "Dark Teal"
Case 50: ColourName = "Sea Green"
Case 51: ColourName = "Dark Green"
Case 52: ColourName = "Olive Green"
Case 53: ColourName = "Brown"
Case 54: ColourName = "Plum"
Case 55: ColourName = "Indigo"
Case 55: ColourName = "Tan"
Case 56: ColourName = "Gray-80%"
Case Else: ColourName = "No name Listed"
End Select
Select Case Cnt
Case 1
CI1 = xy.Offset(0, col).Interior.ColorIndex
xy.Offset(0, 12) = CI1
xy.Offset(0, 13) = ColourName
xy.Offset(0, 14) = xy.Offset(0, col).Value
Range(xy.Offset(0, 12), xy.Offset(0, 14)).Interior.ColorIndex = CI1
Case 2
CI2 = xy.Offset(0, col).Interior.ColorIndex
xy.Offset(0, 15) = CI2
xy.Offset(0, 16) = ColourName
xy.Offset(0, 17) = xy.Offset(0, col).Value
Range(xy.Offset(0, 15), xy.Offset(0, 17)).Interior.ColorIndex = CI2
Case 3
CI3 = xy.Offset(0, col).Interior.ColorIndex
xy.Offset(0, 18) = CI3
xy.Offset(0, 19) = ColourName
xy.Offset(0, 20) = xy.Offset(0, col).Value
Range(xy.Offset(0, 18), xy.Offset(0, 20)).Interior.ColorIndex = CI3
Case 4
CI4 = xy.Offset(0, col).Interior.ColorIndex
xy.Offset(0, 21) = CI4
xy.Offset(0, 22) = ColourName
xy.Offset(0, 23) = xy.Offset(0, col).Value
Range(xy.Offset(0, 21), xy.Offset(0, 23)).Interior.ColorIndex = CI4
End Select
Cnt = Cnt + 1
End Select
End If
Next col
Next xy
Columns("N:Y").Columns.AutoFit 'Format column widths
Cells(1, 1).Select
End Sub

## Bookmarks