```
Sub newarray(target)
Application.ScreenUpdating = False
Application.DisplayStatusBar = False
Dim mylist() As String
Dim arrayposition As Long
Dim mystring As String
Dim p As String
Dim q As Range
Set q = ThisWorkbook.Sheets("Sheet4").Range("A:E")
p = target.Offset(0, 4)
mystring = Application.VLookup(p, q, 5, False)
mylist = Split(mystring, ",")
For arrayposition = LBound(mylist) To UBound(mylist)
Dim r As Long
r = Right(mylist(arrayposition), Len(mylist(arrayposition)) - 3) + 1
Dim wb As Workbook
Dim sheet_1 As Worksheet
Dim table_1 As ListObject
Set wb = ThisWorkbook
Set sheet_1 = wb.Sheets("sheet1")
Set table_1 = sheet_1.ListObjects("table_1")
If (sheet_1.Range("AH" & r).Value = 1 Or sheet_1.Range("AH" & r).Value = 1) Then
sheet_1.Rows(r).Columns("A:O").Interior.ColorIndex = 37
End If
If (sheet_1.Range("AH" & r).Value > 1 Or sheet_1.Range("AH" & r).Value > 1) Then
sheet_1.Rows(r).Columns("A:O").Interior.ColorIndex = 22
End If
If (sheet_1.Range("AH" & r).Value = 0 Or sheet_1.Range("AH" & r).Value = 0) Then
sheet_1.Rows(r).Columns("A:O").Interior.ColorIndex = xlNone
If UCase(sheet_1.Cells(r, 1).Value) <> UCase(sheet_1.Cells(r, 8).Value) Then
sheet_1.Cells(r, 1).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 1).Value) <> UCase(sheet_1.Cells(r, 8).Value) Then
sheet_1.Cells(r, 8).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 2).Value) <> UCase(sheet_1.Cells(r, 9).Value) Then
sheet_1.Cells(r, 2).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 2).Value) <> UCase(sheet_1.Cells(r, 9).Value) Then
sheet_1.Cells(r, 9).Interior.ColorIndex = 36
End If
If sheet_1.Cells(r, 3).Value <> sheet_1.Cells(r, 10).Value Then
sheet_1.Cells(r, 3).Interior.ColorIndex = 36
End If
If sheet_1.Cells(r, 3).Value <> sheet_1.Cells(r, 10).Value Then
sheet_1.Cells(r, 10).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 4).Value) <> UCase(sheet_1.Cells(r, 11).Value) Then
sheet_1.Cells(r, 4).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 4).Value) <> UCase(sheet_1.Cells(r, 11).Value) Then
sheet_1.Cells(r, 11).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 5).Value) <> UCase(sheet_1.Cells(r, 12).Value) Then
sheet_1.Cells(r, 5).Interior.ColorIndex = 36
End If
If UCase(sheet_1.Cells(r, 5).Value) <> UCase(sheet_1.Cells(r, 12).Value) Then
sheet_1.Cells(r, 12).Interior.ColorIndex = 36
End If
End If
Next arrayposition
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
End Sub
```