Laufzeitfehler 91 - Hilfe

Public Sub Texterstellen2()
Dim finden As Range
Dim lngZeile As Long
Dim lngEndeZeile As Long
Dim strAusgabeText As String
Set finden = Worksheets("Email-Doku").Range("A1:A200").Find(what:="Ende")
lngEndeZeile = finden.Row
For lngZeile = 1 To lngEndeZeile
strAusgabeText = strAusgabeText & Worksheets("Email-Doku").Cells(lngZeile, 1) & vbLf
Next
strAusgabeText = Left(strAusgabeText, Len(strAusgabeText))
Worksheets("Email").TextBox3.Value = strAusgabeText
End Sub