Option Explicit

Sub cells_val_to_hlnk()
    Dim cl As Range, sTmp As String
    
    For Each cl In Selection
        cl.Hyperlinks.Delete
        sTmp = cl.Value
        If Len(sTmp) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=cl, Address:=sTmp, TextToDisplay:=sTmp
    Next cl
End Sub

Option Explicit

Sub cells_val_to_hlnk2(rngTarget As Range, rngSrc As Range)
    Dim cl As Range, sTmp As String, lRows As Long, lColumns As Long, lR As Long, lC As Long
    
    If (rngTarget.Rows.Count <> rngSrc.Rows.Count) Or (rngTarget.Columns.Count <> rngSrc.Columns.Count) Then Exit Sub
    lRows = rngTarget.Rows.Count
    lColumns = rngTarget.Columns.Count
    
    rngTarget.Hyperlinks.Delete
    For lR = 1 To lRows
        For lC = 1 To lColumns
            sTmp = rngSrc.Cells(lR, lC).Value
            If Len(sTmp) > 0 Then ActiveSheet.Hyperlinks.Add Anchor:=rngTarget.Cells(lR, lC), _
                Address:=sTmp, TextToDisplay:=rngTarget.Cells(lR, lC).Value
        Next lC
    Next lR
End Sub

Sub make_hl()
    Call cells_val_to_hlnk2(Range("$B$4:$B$19"), _
        Range("$C$4:$C$19"))
End Sub