automatist text i celle

hej jeg skal bruge en måde jeg tilføje noget text til en celle hvis nabo cellen f.eks har vædien 1 har prøvet med case men får en fejl hele tiden.

For Each Cell In Range("e1:e10000")
    nr = Cell.Value
    Select Case nr
        Case 1
            Cell.offset(0, 1) = "peter"

    End Select
Next Cell