按单列对命名范围进行排序

Question

我有一些在Excel 2007中运行良好的VBA代码，但现在我的工作计算机已升级到Excel 2010后不再有效。代码应该采用一组数据，确定范围的大小，名称该范围，并按列D排序：

Dim myrange as Range
Dim Analysis as Worksheet

Set Analysis = ActiveWorkbook.Sheets(1)
Set myrange = Analysis.Range("A2")
Set myrange = Range(myrange, myrange.End(xlToRight))
Set myrange = Range(myrange, myrange.End(xlDown))
myrange.Sort Key1:=Range("D2"), Order1:=xlAscending

宏在最后一行停止，返回错误＃1004：“对象'_Global'的方法'范围'失败”。