Sort not working

[davidmyers]

Hi I'm trying to sort a WorkSheet with the following code:

Sub SortComplaintsSystemWithinSpecies()
Dim sortSystemInSpecies As Range
Dim keySystem As Range
Dim keySpecies As Range
Set sortSystemInSpecies = Sheets("Complaints").Range("B2", Range("Q" & Rows.Count).End(xlUp))
Set keySystem = Sheets("Complaints").Range("I2")
Set keySpecies = Sheets("Complaints").Range("C2")
With sortSystemInSpecies
    .Sort Key1:=keySpecies, Order1:=xlAscending, _
          key2:=keySystem, order2:=xlAscending, Orientation:=xlSortColumns, Header:=xlYes
   '        key3:=.Cells(1, 1), order3:=xlAscending, Header:=xlGuess
End With
End Sub

Is there any reason this does not work and no errors are displayed?

Thanks for any Help
David

 

[davidmyers]

Sorry if anybody's spending time on this to find the problem.

Checking in the light of day - actually realized at 5am that maybe I'd been looking at the wrong sorted column - I see it all works as intended.

I think what threw me was it worked so fast, I assumed nothing happened.

David