Hyperlinks - title in A and URL in D column

[godlev]

i tried to compile excel VBA to make text in column A with hyperlinks to URL found in column D
the range is formatted as table and the name is T_RAW
any ideas how to fix this or what other approach i can go with ?

Sub update()

Dim row As Range
Dim tbl As ListObject

Set tbl = ActiveSheet.ListObjects("T_RAW")

For Each row In [T_RAW].Rows
With tbl
.Hyperlinks.Add Anchor:=row.Columns(1), _
 Address:=row.Columns(4), _
 ScreenTip:=row.Columns(1), _
 TextToDisplay:=row.Columns(1)
 End With
Next

End Sub

unfortunately i get

object required

for the row

For Each row In [T_RAW].Rows

[godlev]

anyone help me on this ?

[Norie]

Where do you want to add the hyperlinks?

[godlev]

A:A = contains just short titles
B:B = random info
C:C = random info
D:D = contains hyperlinks like (http://google.com etc.)

i want VBA to get the link from D1 and make A1 pointing to that link then D2 to A2 and D3 to A3 and continue like that for each row

[godlev]

anyone has ideas how to solve this or another approach?

[than_gold]

Can you provid the sample excel for futher clear help on this.

[godlev]

attached url-sample.xlsx file - hope its clear now

[than_gold]

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

[godlev]

works like charm - solved! - thank you!