text finden

Folgendes möchte ich erreichen:
Im Bereich (A1:E30) sollen nacheinander alle Zellen selektiert werden, in denen der Text vorkommt der in Zelle G33 steht.

Momentan wird nach "der" gesucht.

With Worksheets(1).Range("a1:E30")
Set c = .find("der", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Wie kann ich erreichen daß nach dem Inhalt aus Zelle G33 gesucht wird?

Set c = .find(Cells(33, 5).Text, LookIn:=xlValues)

funktioniert nicht.
Und wie kann ich den Suchvorgang nach jedem Treffer unterbrechen, und dann weitersuchen?

Gruß
Matthias