So I have a macro here which toggles between Original hyperlink name> Renamed, shortened hyperlink. In this case "url"
Its working well, But I'm struggling to include footnotes in this code, tried a couple of different things but can't seem to get it working.

Sub ToggleURLs()
Dim aHL As Hyperlink
For Each aHL In ActiveDocument.Hyperlinks
If aHL.TextToDisplay = "url" Then
aHL.TextToDisplay = aHL.Address
Else
aHL.TextToDisplay = "url"
End If
Next aHL
End Sub


It seems this should be a simple addition somewhere, if someone can help will be much appreciated!