Macro open URLs in cells

[ibTops]

I have a worksheet in which Cells B31 and D31, each have a CONCATENATE formula that picks up values from different cells, to construct a URL. Here's a simplified example:

B5 ="sport"
B6 ="weather"

B31 =CONCATENATE("https://www.bbc.com/"; B5)
D31 =CONCATENATE("https://www.bbc.com/"; B6)

I need a macro that opens both of these links. Preferably in a new Chrome window, in separate tabs.

I tried adding:

B32 =B31
D32 =D31

In order to get just the value produced from the [FONT=&quot]CONCATENATE formula.

[/FONT]Thanks for the help!

 

[Exceladd1ct]

Does this work for you?

Sub WWW()
    Dim URL As String
    URL1 = Range("D31").Value
    URL2 = Range("B31").Value
    ActiveWorkbook.FollowHyperlink URL1
    ActiveWorkbook.FollowHyperlink URL2
End Sub

For reference: Link

 

[ibTops]

Thanks so much Exceladd1ct! That seems to be working perfectly!

 

[Exceladd1ct]

Glad to help!