Functions cannot be run on their own; they need something else (e.g. a Sub) to run them. For example, you might use:
Code:
Sub Extract_Hyperlinks
doHL
End Sub
Alternatively, if you want to be able to run your code directly, change:
Function doHL()
to:
Sub doHL()
and change:
End Function
to:
End Sub
(this latter change occurs automatically if you do the first one).