ADD HyperLink

    Const iniRow As Long = 3
    Const targetClm As Long = 2
    Const linkClm As Long = 4
    '
    Dim strLink As String
    Dim curRow As Long
    Dim endRow As Long
    '
    endRow = Cells(Rows.Count, linkClm).End(xlUp).Row
    For curRow = iniRow To endRow
        strLink = Trim(Cells(curRow, 4).Value)
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(curRow, 2), Address:=strLink
    Next curRow