Office: Excel Hyperlinks wurden umbenannt/funktionieren nicht mehr

Excel hatte im Hyperlink einen _ zu %%20%% umgewandelt. Dadurch haben die Links nicht mehr funktioniert. Durch Einsetzen eines Makros wurden die Fehler korrigiert:

Sub FixHyperlinks()
Dim wks As Worksheet
Dim hl As Hyperlink
Dim sOld As String
Dim sNew As String

Set wks = ActiveSheet
sOld = "Bilder Liste"
sNew = "BilderListe"
For Each hl In wks.Hyperlinks
hl.Address = Replace(hl.Address, sOld, sNew)
Next hl

End Sub