I have one workbook that contains two sheets. Sheet one has 17 columns and 100k rows. An example of what a row and columns looks like from sheet one:


provcpt1cpt2cpt3cpt4cpt5cpt6cpt7cpt8cpt9cpt10cpt11cpt12cpt13cpt14john doe167L8641101672193301933115172216715000232t84.5536380


Sheet two contains 1 column with 226 various numbers. Example:

PROC_CD
0010
0048T
0051T
0099T
0154T
167

I want the macro to take the 226 proc cds and look for them on sheet 1 and if they find a proc cd within any column and row, highlight the entire row. The code I have is:

Sub HighlightRowsWithMyNumbers()
Dim R As Range, vA As Variant, i As Long, j As Long, k As Long, mynums As Variant
mynums = Sheets("sheet2").Range("a2:a226").Value
Set R = ActiveSheet.UsedRange
vA = R.Value
Application.ScreenUpdating = False
For i = LBound(mynums, 1) To UBound(mynums, 1)
For j = LBound(vA, 1) To UBound(vA, 1)
For k = LBound(vA, 2) To UBound(vA, 2)
If vA(j, k) = mynums(i, 1) Then
R.Cells(j, k).EntireRow.Interior.Color = vbYellow
End If
Exit For
Next k
Next j
Next i


End Sub

It runs with no errors but does not do anything.