使用其他工作表的变量修改工作表名称

Question

我有一张名为“GRAPH”的表格和两个特殊单元格（F4和F5）：

F4 = 2013
F5 = 2014

在我的工作簿中有一些名为：2013年1月数据，2013年数据发布会，2013年3月数据等

我想在所有这些中将“2013”​​替换为“2014”，但是当我尝试执行以下操作时，我收到“下标超出范围”错误：

  

子测试（）

              Dim X1，X2 As Variant

        'X1 is to old as X2 is to new value

        X1 = Sheets("GRAPH").Range("F$4").Value
        X2 = Sheets("GRAPH").Range("F$5").Value 

       Sheets("DATA jan & X1").Select 
        ActiveSheet.Name = "DATA jan & X2"
             Sheets("DATA feb & X1").Select 
             ActiveSheet.Name = "DATA feb & X2"
                  Sheets("DATA mar & X1").Select 
                  ActiveSheet.Name = "DATA mar & X2"

        End Sub

如何解决？

Answer 1

将"sheetname2 & O"更改为"sheetname2" & O。与下一行的N相同。