URL ADDRESS TO HYPER LINK

[alan myers]

I HAVE A LIST OF URLS AND WANT TO CONVERT TO HYPER LINKS THIS IS MY MACRO I RECORDED
BUT I WANT TO START AT A1 AND GO TO THE LAST CELL OF URLS


Sub HYPERFIX()
'
' HYPERFIX Macro
'

'
Range("A5526").Select
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Franchise Ball | Player | Anbessa Corrales", TextToDisplay:= _
"Franchise Ball | Player | Anbessa Corrales"
Range("A5527").Select
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Franchise Ball | Player | Jake Duggan", TextToDisplay:= _
"Franchise Ball | Player | Jake Duggan"
Range("A5528").Select
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"Franchise Ball | Player | Leroy Liu", TextToDisplay:= _
"Franchise Ball | Player | Leroy Liu"
End Sub

 

[davesexcel]

Sub CreateHyperLinks()
    Dim sh As Worksheet
    Dim rng As Range, c As Range
    Set sh = ActiveSheet
    With sh
        Set rng = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        For Each c In rng.Cells
            .Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=c.Value
        Next
    End With
End Sub

 

[alan myers]

Sub CreateHyperLinks()
    Dim sh As Worksheet
    Dim rng As Range, c As Range
    Set sh = ActiveSheet
    With sh
        Set rng = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        For Each c In rng.Cells
            .Hyperlinks.Add Anchor:=c, Address:=c.Value, TextToDisplay:=c.Value
        Next
    End With
End Sub

 

[alan myers]

THANK YOU SO MUCH YOU ARE TRED95
RED95