Right(S, 1)

Kan dette ikke lade sig gøre ?

Do Until IsEmpty(ActiveCell)
      If ActiveCell.Value = ActiveCell.Offset(0, 2).Value And _
      Right(ActiveCell.Offset(0, -9), 1) = 0 Then ' Der er ingen forskel på Inter og Prio.dat rød farve
        ActiveCell.Interior.Color = RGB(255, 255, 0) ' Intern højre end extern dato gul farve
      End If
  ActiveCell.Offset(1, 0).Select
Loop



Hvis aktiv celle er = celle offset(0,2)
og sidste ciffere i celle offset (0,-9) = 0

men der er fejl, kan ikke se hvad ?