Sub Prov()
Dim i As Integer
'Dim Rng As Range
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iLastRow
If Right(Cells(i, 5), 1) & Mid(Cells(i, 5), 4, 2) <> Cells(i, 9).Text Then
Cells(i, 5).Interior.ColorIndex = 6
End If
Next
End Sub
Dim i As Integer
'Dim Rng As Range
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To iLastRow
If Right(Cells(i, 5), 1) & Mid(Cells(i, 5), 4, 2) <> Cells(i, 9).Text Then
Cells(i, 5).Interior.ColorIndex = 6
End If
Next
End Sub