This should get you close to what you want:
Sub Close_Slow_Hyperlink()
Dim newHour, newMinute, newSecond, waitTime, nowTime
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Do Until nowTime >= waitTime
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now())
nowTime = TimeSerial(newHour, newMinute, newSecond)
Range("B6").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal
If ActiveWorkbook.Name <> "Book2" Then Exit Sub
Loop
End Sub
____________________________________________________________________
What you have to do is substitute where I've got cell "B6" for the cell containing your hyperlink, and (very important) change where I've got "Book2" for the workbook containing the calling macro WITHOUT THE .XLS EXTENSION
Pressing Ctrl + Break usually stops a macro in its tracks, though this operation can be switched off via code, also it doesn't work if Excel isn't the active application.
Have fun!!!!!!