Importing Naming Conventions

I'm trying to import a series of cell values and cell names from another workbook. The code I have works, it just doesn't do what I want it to do.

Please Login or Register  to view this content.

Destination receives the value correctly in cells(1,1) but cells(1,2) receives =Data!$A$1 instead of the actual name of the cell reference. Any reasons why it does this or other ideas of how to approach this?

What did you want to return? IF you want $A$1 then

Please Login or Register  to view this content.

Clarification,

I want it to import the name I have applied to ImpCell. So the name of ImpCell is based off a series of user inputs to indicate what they value of ImpCell represents. So for example if the name of A1 has been changed to ABC123XYZ I want to bring that name over as a value.