Retrieve Shape Range Contents

[Jaamie]

Is there a way to find out the current Range and Link Cell for a given Shape? None of the following work?

    TName$="Button 1"
    Activesheet.Shapes(I).Select
    R$ = Selection.ListFillRange
    R$ = ActiveSheet.Shapes.Range(Array(TName$)).ListFillRange
    R$ = ActiveSheet.Shapes(I).ListFillRange

 

[My Aswer Is This]

Click on the shape and look at your formula bar.

 

[Jaamie]

My apologies. I am looking for a VBA solution.