case der ikke vil virke i vba

hej er der en der kan fortælle mig hvorfor denne ikke virker, den gør det den skal men derefter kommer den med at den mangler et objekt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each Cell In Range("b1:b10000")
        If Cell.Value > 0 And Cell.Offset(0, -1) = "" Then _
        Cell.Offset(0, -1) = Now()
    Next Cell
    'For Each Cell In Range("e1:e10000")
        nr = Cell.Offset(0, 3).Value
        Select Case nr
       
            Case 1
                Cell.Offset(0, -1) = "Stemple på M-ordre/Læse PWI´er"
            Case 2
                Cell.Offset(0, -1) = "Stripse 630-08 + 630-16 + 630-14 + 630-36 + harness A i kabel-bakke ud af Nacelle (repos væk)"
   
                Case 3
                Cell.Offset(0, -1) = "Stripse heater + kælderkabel i lodret kabelbakke + lysleder"
   
                Case 4
                Cell.Offset(0, -1) = "Kontrollere gevind"
   
                Case 5
                Cell.Offset(0, -1) = "Montere afstandsplader"
   
                Case 6
                Cell.Offset(0, -1) = "Pakke transportramme sammen"
   
                Case 7
                Cell.Offset(0, -1) = "Montere specialværktøj"
   
                Case 8
                Cell.Offset(0, -1) = "Montere styrebolte"
                Case 9
                Cell.Offset(0, -1) = "Montere bagerste rør"
   
                Case 10
                Cell.Offset(0, -1) = "Montere gearolietank"
   
                Case 11
                Cell.Offset(0, -1) = "Montere CMS-kabel"
   
                Case 12
                Cell.Offset(0, -1) = "Montere stik W1 og W3"
   
                Case 13
                Cell.Offset(0, -1) = "Føre grå kabel + montere stik på 695-02-W1 og 695-04-W1"
   
                Case 14
                Cell.Offset(0, -1) = "Montere flexrør på 695-04-W1"
   
                Case 15
                Cell.Offset(0, -1) = "Montere plade ved grå kabler"
   
                Case 16
                Cell.Offset(0, -1) = "Montere stelkabel ved plade"
   
                Case 17
                Cell.Offset(0, -1) = "Montere forreste rør"
   
                Case 18
                Cell.Offset(0, -1) = "Montere kabelbakker"
   
                Case 19
                Cell.Offset(0, -1) = "Montere kabler"
   
                Case 20
                Cell.Offset(0, -1) = "Montere gevindbjælke på C-profil"
   
                Case 21
                Cell.Offset(0, -1) = "Formontere bolte til gearolietank"
   
                Case 22
                Cell.Offset(0, -1) = "Formontere kølerrør til generator"
   
                Case 23
                Cell.Offset(0, -1) = "Registrere data i QDA"
   
                Case 24
                Cell.Offset(0, -1) = "5S-tjekke af værktøjstavler (5 min)"
   
                Case 25
                Cell.Offset(0, -1) = "Hjælp dine kollegaer eller lav 5S"
   
        End Select