Run this from the sheet which contains range "rngprocs"
This is not dynamic, and if worksheet values will change, then need to use conditional formatting
What code does
For each worksheet in the workbook it compares the value of each number in columnB (converted to text) with the worksheet name and turns the backgound colour of the cell in columnB grey if they are equal. Checking starts in cell B9.
Sub sheetnameMatch()
Dim CellValue As String 'to hold cell value as text
For i = 1 To Sheets.Count
For r = 9 To 8 + Range("rngprocs").Rows.Count
CellValue = ActiveSheet.Cells(r, 2).Value
If CellValue = Sheets(i).Name Then
ActiveSheet.Cells(r, 2).Interior.ColorIndex = 15
End If
Next r
Next i
End Sub