Getting Linked Cell From Variable Dropdown

I'm using the following code to get the linked cell and return the value to a range. Is there anyway I can achieve this WITHOUT selecting the shape to get the linkedcell. I find using 'select' is cause me formatting problems.

VB:

Sub finalizeclrx()
Dim s As Shape, finRNG As Range, pk1 As String, SphFill As Long
SphFill = Worksheets("input").Range("K65536").End(xlUp).Row
Set finRNG = ActiveSheet.Buttons(Application.Caller).TopLeftCell
For Each s In ActiveSheet.Shapes
If Not Intersect(finRNG.Offset(-5, -11).Range("A1:A1"), s.TopLeftCell) Is Nothing Then

[Code]....