VBA - 循环在其他工作表中不起作用

Question

我在VBA中编写了以下循环：

Sub Update_Newest_Day_Conversions()

Worksheets("CPC - Conversions DoD").Range("A1"). _
End(xlToRight).Select

MyDate = Date - 1

While ActiveCell.Value < MyDate

ActiveCell.Copy ActiveCell.Offset(0, 1)
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = ActiveCell.Value + 1
ActiveCell.Offset(1, -1).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Copy ActiveCell.Offset(0, 1)
ActiveCell.Offset(-1, 1).Select

Wend

End Sub

问题：它实际上只在我当前在工作表中时才有效。在表单外部运行代码时，出现以下错误消息：

运行时错误'1004'：选择Range类失败的方法

调试器选择代码的以下部分：

Worksheets("CPC - Conversions DoD").Range("A1"). _
End(xlToRight).Select

有人知道这里发生了什么吗？