String finden und Zelle aktiviren

Ich muß per Auswahl einen bestimmten Text in einer Spalte finden, und die gefundene Zelle aktiviren.
Leider bekomme ich immer die Fehlermeldung :"Laufzeitfehler ´91´, Objektvariable oder With-Blockvariable nicht festgelegt."
Was mache ich falsch?
Hier mein jetziger Code:

Sub label48eintragen()
Dim r As Range, r1 As Variant
With Worksheets("Werte")
Set r1 = Cells(2, 31)
Set r = Range("D1:D400").Find(r1)
r.Activate
Label36.Caption = Format(ActiveCell(1, 1 + 1).Value)
Label47.Caption = Format(ActiveCell(1, 1 + 2).Value, "#,####0.000")
Label58.Caption = ActiveCell(1, 1 + 3).Value
Label69.Caption = ActiveCell(1, 1 + 4).Value
Label136.Caption = ComboBox1.Value
End With
End Sub

Bin für jede Hilfe dankbar.
H.- Udo