Unblocking Excel

Great tip thanks!

http://www.mrexcel.com/

ok, meanwhile thanks.

bye

Escape may not work, but try Ctrl-Break. That is the traditional way to stop code that is looping. If that doesn't work, Ctrl-Alt-Del will open your Task Manager, and you can end the process. Hopefully you saved your work before starting the test.

Chris

For example, try to select this site from a cell:
http://www.hotvsnot.com

and to launch this macro:
Sub OpenLinks()
Dim rCell As Range
On Error Resume Next
Application.DisplayAlerts = False
With Selection
For Each rCell In Selection.Cells
ActiveWorkbook.FollowHyperlink _
Address:=rCell.Value, _
NewWindow:=True
Next rCell
End With
End Sub

my excel freeze!
how to unlock?

esc not work, ctrl+break not work..
ctrl+alt+canc works but but loses data

thanks

I'm not sure why you are creating a group selection.. but for one website.. try the following.

PS. I just recorded a macro.. works perfectly on my machine.

Sub OpenLink()

Range("C13").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.WindowState = xlNormal

End Sub

Sub Create_Link()

Range("C13").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:="http://www.hotvsnot.com/", _
TextToDisplay:="http://www.hotvsnot.com/"
Selection.Hyperlinks(1).Address = "http://www.hotvsnot.com/"

End Sub

I resolved to adding DoEvents on the macro code
Thanks to all
Bye