Command Button in Opening Links

Hi,

I have a file created by my buddy which automatically open multiple links with a delay of 3 seconds of opening in between the links. However, after running the code, I still have to select the range of the links to be opened. Is it possible that the links be opened automatically on a certain table column with 3 seconds delay in between links instead of choosing the range? I have attached the file for your perusal.

here is the current code.

Private Sub CommandButton6_Click()

Dim SelecRng As Range

Set SelecRng = Application.Selection
Set SelecRng = Application.InputBox("Range", SelecRng, Type:=8)

For Each Cell In SelecRng
Set objShell = CreateObject("Wscript.Shell")
objShell.Run (Cell)
Application.Wait (Now + TimeValue("00:00:03"))
Next


End Sub

Originally Posted by YasserKhalil

May be

Please Login or Register  to view this content.

Thanks for the code! It works perfectly