Sub Fleet()
Dim w1 As Worksheet, w2 As Worksheet
Dim o1R As Object, o1C As Object
Dim o2R As Object, o2C As Object

Dim lngMaxR As Long, intMaxC As Integer
Dim lngR As Long, intC As Integer
Dim var1 As Variant, var2 As Variant

Set w1 = Worksheets(1)
Set w2 = Worksheets(2)
Set o1R = w1.UsedRange.Rows
Set o1C = w1.UsedRange.Columns
Set o2R = w2.UsedRange.Rows
Set o2C = w2.UsedRange.Columns

Application.ScreenUpdating = False

If o1R.Count > o2R.Count Then
lngMaxR = o1R.Count
Else
lngMaxR = o2R.Count
End If
If o1C.Count > o2C.Count Then
intMaxC = o1C.Count
Else
intMaxC = o2C.Count
End If

For intC = 1 To intMaxC
For lngR = 1 To lngMaxR
var1 = w1.Cells(lngR, intC)
var2 = w2.Cells(lngR, intC)

If var1 = var2 Then
w2.Cells(lngR, intC).Interior.Color = vbYellow
End If

Next lngR
Next intC
Application.ScreenUpdating = True
Set w1 = Nothing
Set w2 = Nothing
Set o1R = Nothing
Set o1C = Nothing
Set o2R = Nothing
Set o2C = Nothing
End Sub