Excel VBA中引用WorkSheet的新办法

在写VBA中常需要引用某个WorkSheet对象，一般通过工作表名
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet2Name")
或者索引号
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(2)
来引用。但这样做有一个不好的地方，就是如果工作表改名或者工作簿有删除、插入动作，以上引用可能会失效。但使用Code Name在上面两种情况下都会一直有效（在VBA里一张工作表对象显示为Sheet2(Sheet2Name)，Code Name即为"Sheet2」，可通过属性窗口修改为有意义的字串）：
Dim ws As Worksheet
Set ws = Sheet2
而且在写法上也更简单。

但有一个缺点，跨工作表时这种方法就无效了。