Laufzeitfehler 91

Option Explicit
Public strPathAlt() As String
Public strPathNeu() As String
Sub HyperlinksÄndern()
Dim WB As Workbook
Dim lngLetzteZeile As Long
Dim lngZeile As Long
'in Lokalitäten die Daten in 2 Felder einlesen
With WB("G:\FF-Listen\HL_Gemarkungen.xls")
lngLetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim strPathAlt(lngLetzteZeile)
ReDim strPathNeu(lngLetzteZeile)
For lngZeile = 2 To lngLetzteZeile
DoEvents
strPathAlt(lngZeile) = .Cells(lngZeile, 1)
strPathNeu(lngZeile) = .Cells(lngZeile, 2)
Next lngZeile
End With
End Sub
Sub ErsetzeAlleHyperlink()
Dim alterPfad As String
Dim neuerPfad As String
Dim strHyperLink As String
Dim HL As Hyperlink
ActiveWorkbook.BuiltinDocumentProperties("Hyperlink base") = ""
' durch alle Hyperlinks im Blatt laufen, Blattname muss angepasst werden
For Each HL In ActiveSheet.Hyperlinks
' und in der Adresse des Links den Teil alt gegen neu tauschen
strHyperLink = Replace(strHyperLink, "\\hpgue06\G-Archiv\Riss-Archiv\", "")
strHyperLink = Replace(strHyperLink, "/", "\")
strHyperLink = Replace(strHyperLink, "Risse\", "")
strHyperLink = Replace(strHyperLink, "Koordinaten\", "")
strHyperLink = Replace(strHyperLink, "Grenzniederschriften\", "")
Next
For Each HL In ActiveSheet.Hyperlinks
DoEvents
strHyperLink = HL.Address
'If hyper.Parent.Interior.ColorIndex = 3 Then
'Wenn im Hyperlink der alte Pfad...
If InStr(strHyperLink, alterPfad)  0 Then
'...dann mit dem neuen Pfad ersetzen
strHyperLink = Replace(strHyperLink, alterPfad, neuerPfad)
'Mit obiger Sub testen ob neuer Hyperlink iO
'Call Hyperlinks_testen
End If
'Gemäss Tabelle ersetzen...
For I = intStart To intEnde
DoEvents
If InStr(strHyperLink, strPathAlt(I))  0 Then
'...dann mit dem neuen Pfad ersetzen
strHyperLink = Replace(strHyperLink, strPathAlt(I), strPathNeu(I))
End If
Next I
Next
ActiveWorkbook.BuiltinDocumentProperties("Hyperlink base") = "\\fs02.local\Archiv62\ _
Zahlenwerk\Nachweise\"
Call HyperlinkTest
End Sub

With WB("G:\FF-Listen\HL_Gemarkungen.xls")

strHyperLink = Replace(strHyperLink, "/", "\")