最近学到一招，效果不错～

在写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

而且在写法上也更简单。

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