Hello all,


I am new to this list, and hope you all may help me here.


I am using Excel 2k and need to extract the Linked cell of all th
check
box's I have on a sheet. I have searched the web for weeks and hav
found
code that will supposed to do this but it never did. Here is the las
code
that I have looks like...


Sub FindOut()


Dim oCheck As Shape

Open "C:\CheckBoxInfo.Txt" For Output As #1

For Each oCheck In ActiveSheet.Shapes
If oCheck.Type = msoOLEControlObject Then
oCheck.Select
Print #1, Selection.LinkedCell
End If
Next

Close

End Sub


This error's out with "Object does not support this"


Does anyone have a way to do this?


Thanks in advance for any help here

--
racerma
-----------------------------------------------------------------------
racerman's Profile: http://www.excelforum.com/member.php...fo&userid=2698
View this thread: http://www.excelforum.com/showthread.php?threadid=40195