Hyperlinks - title in A and URL in D column

Here you go:

Sub hyperlink_add()
Dim cll As Range


    For Each cll In Sheet1.Range("A3:A5").Cells
        ActiveSheet.Hyperlinks.Add cll, cll.Offset(0, 3).Value
    Next cll


End Sub