Runtime error 9, Subscript out of range

[Kavish Sekhri]

Hi, Can anyone please help me with setting the range for this?

Currently I am using the following VBA

Sub CreateSheetsFromAList()

Dim Country As String
Dim N As Long

Country = Sheets("Launch").Range("D3")
MsgBox "Opening Links for Country -  " & Country

N = Sheets(Summary).Cells(1, 1).End(xlDown).Row


If N = 1048576 Then
    MsgBox "No Data Present for the Country - " & Country
Else
    For Each link In Sheets(Country).Range("A1:A" & N)
        ActiveWorkbook.FollowHyperlink Address:=link
    Next link
End If

End Sub

Here the range is for Column A i.e. Range("A1:A" & N), however I want to change it to Row 2 from cell B2 to Z2.

Please check the image attached to get an idea of the range.

I want to execute all the web-links from B2 to Z2.

Thanks
__________________________________________________________________

Mod edit : thread moved to appropriate forum !
​

 

[Hui]

Can you please describe what your trying to do as your commentary doesn't really match the code that you have supplied

 

[Kavish Sekhri]

Can you please describe what your trying to do as your commentary doesn't really match the code that you have supplied

Hi Hui,

Can you help with a macro for the attached sheet "Source list new"?

Worksheet "Launch" has a drop-down of different countries which are mentioned in Column A of second worksheet "Summary" along with their respective web-links in Column B, C, D, and so on.

I want a VBA to open all the web-links pertaining to a country in drop-down on clicking the Launch button.

For example, on selecting Australia as a country in the drop-down in "Launch" worksheet, all web-links in B1, C1, D1, and E1 of "Summary" worksheet should open.

Thanks..

 

[NARAYANK991]

Hi ,

See if this is OK.

Narayan

 

[Kavish Sekhri]

Hi ,

See if this is OK.

Narayan

Works perfectly fine..

Thanks a lot Sir.

 

[Kavish Sekhri]

Hi ,

See if this is OK.

Narayan

Hi Narayan,

First, Thanks a lot for helping me out with the code, it works perfect.

Can you please check this file as I have applied the same code on multiple worksheets in a single file.

It does work and open the respective web links but on every run it gives "Run-time error 5- Invalid Procedure call or argument" on "ActiveWorkbook.FollowHyperlink Address:=link".

Please check the attached file for reference.

 

[NARAYANK991]

Hi ,

See if the error has been taken care of.

Narayan

 

[Kavish Sekhri]

Hi ,

See if the error has been taken care of.

Narayan

Thanks for fixing it.