2个workbook之间点传输

Sub hello()
Dim wbname as workbook
'首先,我为1个储存格定义名称
ActiveWorkbook.Names.Add Name:="myName", RefersTo:="=Sheet1!$A$1"
'随意地输入数值 12
Sheets("Sheet1").Range("A1").Value = "12"
Set wbname=activeworkbook
'复制到另外1个工作薄
Sheets("Sheet1").Copy
'其实我是大规模的为储存格改名字,只有定义名称有统一的运算方法,所以用唔到Range($$)锁定位置
'所以用左以下一句
Sheets("Sheet2").Range("A1").Value = wbname.names(myName).value
'但问题就是上面这句,回传的居然是"Sheet1!$A$1", 而不是我想要的"12"
End Sub

可能写漏写错, 但大意应该出到, 尾2果句既结果,我到底差句咩先出到"12"

帮下手 thx

试吓将指定既cell或range标签化方更其他sheets作参考.

Sheets("Sheet2").Range("A1").Value = wbname.Worksheets("空白页").Evaluate(wbname.names(myName).Refersto)

完成,Thank you