VBA Excel：按字母顺序排序范围

Question

  

错误1004：无法执行范围对象。

Hello Gurus，我是Excel VBA中的新手。我只是尝试将alphabatic顺序的自动排序添加到工作簿中的所有工作表中。在大多数工作表中，以下代码完美无缺。但是在本工作簿中的几个工作表中，它并没有像屏幕截图所示那样返回运行时错误。我无法弄清楚为什么，真的很奇怪。工作表有最简单的完全相同的结构。非常感谢！

Dim r As Integer
Dim c As Integer

r = ActiveCell.Row
c = ActiveCell.Column
Application.ScreenUpdating = False
Sheets(17).Select


Range("A8:E30").Select
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal


Cells(r, c).Select
Application.ScreenUpdating = True