Excel cells into publisher help

[danuk76]

Any advice please

I have a excel file, cell A1 has the text Item(1)

I have a mailmerged PUBLISHER file with macro

Sub exceltopublisher()

With ActiveDocument.MailMerge.DataSource
Set temp1 = .DataFields.Item(1)
End With
  
Dim data As String
data = temp1.Value

With ActiveDocument.Pages(1).Shapes(1).TextEffect
.Text = data
End With

End Sub

The above macro changes my publisher text shapes(1) to whatever is in excel Cell A2 great, but I cannot figure out how to link the above to cell A3

Something needs adding to

Set temp1 = .DataFields.Item(1)

say Set temp1 = .DataFields.Item(1) ????row(2)?????
stumped

[danuk76]

anybody throw me a bone here

[danuk76]

anybody throw me a bone here

throwing myself a bone

was looking for

activedocument.mailmerge.datasource.activerecord = 2

found it by using word macro recorder as publisher dont have one