LinkSources(xlOLElinks) address
 

I have realtime stock quotes updating a spread sheet via DDE. When
use the following code, I cannot determine the cell address of the cel
which has been updated.


Sub DDEUpdate()

Dim colTimeStamp As String

colTimeStamp = "I"

varr = ThisWorkbook.LinkSources(xlOLELinks)

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


ThisWorkbook.SetLinkOnData Name:=varr(i)
Procedu="'MyLinkProcTest " & i & "'"

Next

End Sub

The varr array seems to put the links in a different order than the
are on the sheet.

Your help would greatly be appreciated.

Joh

--
Message posted from http://www.ExcelForum.com