doc = ThisDoc.Document
GoExcel.Open("C:\temp\list.xlsx", "List")

Dim iRow
For iRow = 1 To 200
Try
	iProperties.Value(doc, "custom", GoExcel.CellValue("A" & iRow)) = GoExcel.CellValue("B" &iRow)
Catch
End Try
Next
