Hjælp til hvorfor celler farves gule

Hej

Nedenstående kode køres når man indtaster et beløb i kolonne X. Alt ved den virker, bortset fra at cellen 6 kolonner til højre farves gul selvom betingelserne ikke er opfyldt. Så selvom f.eks. x6 er større end 0 og offset 23 = offset 34, så bliver celle AD6 stadig farvet gul, selvom betingelserne ikke er opfyldte og det dermed bør være betingelserne under Else der burde træde i kraft. Det skal siges at kommandoerne med at AA6 sættes til "ja" og at der ikke skrives nogen kommentar, virker som det skal.
Hvad kan årsagen være?

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("x6:x205")) Is Nothing Then
    If (Target.Offset(0, 0).Value) > 0 And (Target.Offset(0, 34).Value) > (Target.Offset(0, 23).Value) Then
        Target.Offset(0, 3).Value = "Ja"
        Target.Offset(0, 6).Interior.ColorIndex = 27
        Target.Offset(0, 6).AddComment "Vær opmærksom på, at 
        medarbejderen er deltidsansat."
    Else
        Target.Offset(0, 3).Value = ""
        Target.Offset(0, 6).Interior.ColorIndex = xlNone
        Target.Offset(0, 6).Comment.Delete
    End If
End If