VBA排序错误。代码仅作为单独的模块工作

Question

我正在尝试按第3列中的值对数据进行排序。我有一个2行标题，下面的代码本身作为一个模块完美地工作。当我将代码复制并粘贴到另一个模块时，我收到'1004错误：排序参考无效。确保它在您要排序的数据中，并且第一个排序依据框不相同或为空。'

为什么代码只能单独使用？

代码：

Sub sort()
Dim myRange As Range
Dim i As Long
i = 200
Set myRange = Sheets("Final").Range("A2", "S" & i)
myRange.sort Key1:=Range("C2"), order1:=xlAscending, _
                Header:=xlYes, Orientation:=xlSortColumns
End Sub

Answer 1

Range的{​​{1}}参数未完全合格。不合格的范围始终指向 Active 工作表，如果活动工作表与Key1不同，则会出现错误！

这应该解决它：

Sheets("Final")