Hi
If you copy the web links in a range as text
Maybe you can use this open the link that is in the Activecell
Run the sub Run1 with a web address in the Activecell
Option Explicit
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Sub RunShellExecute(ByVal sFile As Variant)
Dim hWndDesk As Long
Dim success As Long
Const SE_ERR_NOASSOC = &H31
hWndDesk = GetDesktopWindow()
success = ShellExecute(hWndDesk, "Open", sFile, 0&, 0&, 3)
End Sub
Sub Run1()
RunShellExecute ActiveCell.Value
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
zop said:
I checked that and it was already unchecked. I think that setting is for windows explorer and doesn't affect internet explorer
settings.