Activating URL links in a range of cells

[asad]

Hello All,

Hope someone here will be able to tell me how to activate URL link in a range of cells using VBA.
I tried to record the macro, but all it gives me is

Sub Macro3()'
' Macro3 Macro
'


'
    Range("N10").Select
    ActiveCell.FormulaR1C1 = _
        "https://****.com.au/****/***/template/generic/******/"
    Range("N45").Select
End Sub

Sorry I had to replace the words with * as it is live and sensitive information. And each cell will have a different link.

I tried

Sub Test()For Each Cell In Range("N49:N50")
Cell.FormulaR1C1 "=" & Cell.Value
Next
End Sub

And also

Sub Test()For Each Cell In Range("N49:N50")
Cell.Select
ActiveCell.FormulaR1C1 "=" & Cell.Value
Next
End Sub

Nothing works so far.
Please let me know how to do this.
Thanks for your help.

Asad

 

[Scott Huish]

Like this:

Sub URL()
Worksheets("Sheet1").Hyperlinks.Add Range("N10"), "http://www.google.com", , , "Google"
End Sub

or if you just want the actual URL to show and not a custom Text to Display:

Sub URL()
Worksheets("Sheet1").Hyperlinks.Add Range("N10"), "http://google.com"
End Sub

 

[asad]

Like this:

Sub URL()
Worksheets("Sheet1").Hyperlinks.Add Range("N10"), "http://www.google.com", , , "Google"
End Sub

Thanks Scott,

Will that apply to the whole range like this:

Sub Test()
For Each Cell In Range("N49:N50")
Worksheets("Data").Hyperlinks.Add Cell, "http://www.google.com", , , "Google"
Next
End Sub

 

[Scott Huish]

If I understand the second part of your question, you have URLS in the cells as text. If that's the case, then perhaps this will do what you want.

Sub MakeURL()
Dim x As Long
For x = 49 To 50
    Worksheets("Sheet1").Hyperlinks.Add Range("N" & x), Range("N" & x)
Next
End Sub

 

[asad]

I also tried this:

Sub Test()For Each Cell In Range("N49:N50")
[COLOR=#ff0000]Worksheets("Data").Hyperlinks.Add Cell, "http://www.google.com[/COLOR]"
Next
End Sub

But no luck. It highlights the line shown in red above.

 

[Scott Huish]

Did you see my last post?

 

[asad]

If I understand the second part of your question, you have URLS in the cells as text. If that's the case, then perhaps this will do what you want.

Sub MakeURL()
Dim x As Long
For x = 49 To 50
    [COLOR=#ff0000]Worksheets("Sheet1").Hyperlinks.Add Range("N" & x), Range("N" & x)[/COLOR]
Next
End Sub

Same problem with this one as well. The line in red above gets highlighted.

 

[asad]

Sorry, my bad.

I forgot to change the sheet name.
It does work perfect.

Thanks a lot.