Command Button in Opening Links

[bambino86]

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

[YasserKhalil]

May be

Private Sub CommandButton6_Click()
    Dim objShl  As Object
    Dim rng     As Range
    Dim c       As Range

    Set rng = Sheets("Sheet3").Range("C10:C" & Sheets("Sheet3").Cells(Rows.Count, 3).End(xlUp).Row)

    For Each c In rng
        Set objShl = CreateObject("wscript.Shell")
        objShl.Run (c)
        Application.Wait (Now + TimeValue("00:00:03"))
    Next c
End Sub

[bambino86]

May be

Private Sub CommandButton6_Click()
    Dim objShl  As Object
    Dim rng     As Range
    Dim c       As Range

    Set rng = Sheets("Sheet3").Range("C10:C" & Sheets("Sheet3").Cells(Rows.Count, 3).End(xlUp).Row)

    For Each c In rng
        Set objShl = CreateObject("wscript.Shell")
        objShl.Run (c)
        Application.Wait (Now + TimeValue("00:00:03"))
    Next c
End Sub

Thanks for the code! It works perfectly

[YasserKhalil]

You're welcome. Glad I can offer some help
Please mark the thread as solved