I have a macro that adds a new named tab for each name a list range. I need
to add a code to my macro that will add a hyperlink next to each name in the
range which will take me directly to the page. My current code is below.
Can anyone help? Below is the macro. Can anyone add to it?

Sub name_sheets()
'will add a sheet, and name it
'for each name in column A
'from A1 down till it hits a blank row
Dim Rng As Range
Dim ListRng As Range

Set ListRng = Range(Range("C6"), Range("C6").End(xlDown))


For Each Rng In ListRng
If Rng.Text < "" And Rng.EntireRow.Hidden = False And Rng.Text < "Buy
/ Sale" _
And Rng.Text < "Buy/Sale" Then
With Worksheets
.Add(after:=.Item(.Count)).Name = Rng.Text

End With


End If
Next Rng
End Sub