VBA macro virker ikke :-(

Hej alle,

Jeg kan ikke få følgende macro til at virke:
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    If Target.Count < 2 Then
        If Not Intersect(Target, Range("E:E")) Is Nothing Then
            Application.EnableEvents = False
            Set r = Sheets("AllocationTypes").Range("A:A").Find(What:=Target.Value)
            If Not r Is Nothing Then
                r.Offset(0, 3).Resize(1, 49).Copy Destination:=Target.Offset(0, 2)
            End If
            Application.EnableEvents = True
        End If
    End If
    If Intersect(Target, Range("BD24:BD321")) Is Nothing Then Exit Sub
    For Each c In Range("BD24:BD321")
        Range("B" & c.Row & ":BC" & c.Row).Interior.ColorIndex = 0
        If c.Value = "Internal" Then Range("B" & c.Row & ":BC" & c.Row).Interior.ColorIndex = 1
        If c.Value = "p" Then Range("B" & c.Row & ":BC" & c.Row).Interior.ColorIndex = 6
        If c.Value = "u" Then Range("B" & c.Row & ":BC" & c.Row).Interior.ColorIndex = 46
    Next
    Range("A1").Select

End Sub
--------------------
Den farver ikke rækkerne i farverne, selv om jeg ændrer værdien i f.eks. BD24 - hvad kan det skyldes? Jeg kan se, at de andre macroer i regnearket indeholder offset, kan det vær derfor?

Mvh
Ransborg