この内容だと単純にループで回せば出来そうだけど

For i = 1 To Lastrow '※Sheet3の最終行
　　Set fnd = (Sheet2.Columns(2).Find(Sheet3.Cells(i, 2)))
　　If Not (fnd Is Nothing) Then
　　　　For j = 1 To 20 '★1列目から20列目まで？
　　　　　　If Sheet3.Cells(i, j) <> Sheet2.Cells(fnd.Row, j) Then
　　　　　　　　Sheet3.Cells(i, j).Interior.ColorIndex = 3
　　　　　　End If
　　　　Next
　　Else
　　　　Sheet3.Cells(i, 2).EntireRow.Interior.ColorIndex = 4
　　End If
Next i