tmill29, please upload a sample file with your data structure, in those 2 sheets, it will increase your chances to receive an answer...
The following code might do what you need, but is not tested on your data:
Code:
Sub HighlightRowsWithMyNumbers()
Dim cell As Object
Dim i As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each cell In Sheets("sheet1").UsedRange
i = Application.Match(cell, Sheets("sheet2").Range("a2:a226"), 0)
If Not Err.Number <> 0 Then
Sheets("Sheet1").Rows(cell.Row).EntireRow.Interior.Color = vbYellow
End If
Err.Clear
Next cell
On Error GoTo 0
Application.ScreenUpdating = True
End Sub