Relative Position in VBA Array

[jgdavis]

I have the following code:

Function DDEUpdate()
Dim colTimeStamp As String

colTimeStamp = "I"

varr = ThisWorkbook.LinkSources(xlOLELinks)

For i = LBound(varr, 1) To UBound(varr, 1)

If IsEmpty(ThisWorkbook.ActiveSheet.Range (colTimeStamp
i).Value) Then

ThisWorkbook.SetLinkOnData Name:=varr(i)
Procedure:="'MyLinkProc " & i & "'"

Else: ThisWorkbook.SetLinkOnData Name:=varr(i)
Procedure:=""

End If

Next

End Function


The varr(i) returns the OLElink based on a sorted order and th
Range(colTimeStamp & i) returns the value of i. How do I find the ro
that varr(i) is referencing?

Thanks,

Joh