Run-time Error - Method 'Apply" of Object 'Sort' failed
<p>Currently received the following error:</p>

<blockquote>
  <p>Run-time Error - Method 'Apply" of Object 'Sort' failed</p>
</blockquote>

<p>Based on code below:</p>

<pre><code>'In the MTD Crystal Reports workbook that has the new data, sort the data
Range("A2:AF65536").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A65536" _
    ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortTextAsNumbers

With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A2:AF65536")
    .Header = xlGuess
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
</code></pre>

<ul>
<li>Debugger brings me to ".Apply"</li>
<li>I've confirmed that the sort rows/columns fall within the .SetRange</li>
</ul>

<p>Any assistance would be greatly appreciated.
Thanks!</p>