```
Sub MatchVals()
Application.ScreenUpdating = False
Dim LastRow As Long, ws As Worksheet, rng As Range, x As Long, y As Long, val As String, fnd As Range
For Each ws In Sheets
LastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For x = 14 To 38
If x <> 26 Then
For y = 2 To LastRow
For Each rng In ws.Range(ws.Cells(y, x), ws.Cells(y + 3, x))
val = val & rng
Next rng
Set fnd = ws.Range("AU1:BF1").Find(val, LookIn:=xlValues, lookat:=xlWhole)
If Not fnd Is Nothing Then
ws.Range(ws.Cells(y, x), ws.Cells(y + 3, x)).Interior.ColorIndex = 6
End If
val = ""
Next y
End If
Next x
Next ws
Application.ScreenUpdating = True
End Sub
```