Fehlermeldung Makro - Laufzeitfehler

Sub LinksFaelligkeit()
Dim rngFind As Range
Dim LCount As Long
Dim strNeuerLink As String
Application.EnableEvents = False
Application.ScreenUpdating = False
With Sheets("Pivot")
LCount = Application.WorksheetFunction.CountIf(.UsedRange, "http*")
For LCount = 1 To LCount
If rngFind Is Nothing Then
Set rngFind = .UsedRange.Find("http*", , xlFormulas, xlPart, xlByRows, xlNext, False,  _
False)
Else
Set rngFind = .UsedRange.FindNext(rngFind)
End If
If Not rngFind Is Nothing Then
strNeuerLink = Replace(rngFind.Text, Str_Die_Ersten, "")
.PivotTables("PivotTable1").PivotFields("Link").PivotItems( _
rngFind.Text).Caption = _
strNeuerLink
rngFind.Hyperlinks.Add rngFind, strNeuerLink, , , strNeuerLink
End If
Next LCount
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub