Сортировка строк по столбцу на НЕ-текущем листе

[who]

Здравствуйте.
Есть такой макрос сортировки строк по столбцу.

    Range("A2:I5").Select
    Selection.Sort Key1:=Range("I1"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

он отлично работает на текущем листе, но если добавить адресацию на другой лист или активацию другого листа и выполненние сортировки на нём, то выдаёт всяческие ошибки:

    Sheets(2).Activate
    Sheets(2).Range("A3:D22").Select
    Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

или

    Sheets(2).Activate
    Sheets(2).Range("A3:D22").Select
    Sheets(2).Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

или

    Sheets(2).Activate
    Sheets(2).Range("A3:D22").Select
    ActiveSheet.Selection.Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

что я делаю не так?

[RAN.]

    Sheets(2).Range("A3:D22").Sort Key1:=Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal

[who]

Спасибо
Но по прежнему пишет, что "Недопустимая ссылка для сортировки..." и т.д.
во вложении мой образец
Sortirovka.zip

[Hugo121]

Range("B3") будет браться из первого листа!

[SAS888]

Посмотрите пример во вложении.

[who]

Сообщение от SAS888

Посмотрите пример во вложении.

кнопку "Спасибо" не нашёл, поэтому просто: Спасибо!
всё работает

[IgorGO]

кнопку "Спасибо" не нашёл

под ником, видно несколько кнопок-иконок, вторая слева (изображение весов) позволяет оставить отзыв и добавить "репутации" формчанину. SAS888 потратил на решение Вашей задачи свое личное время, who, не сочтите за труд поблагодарить его лично
не скупитесь на благодарность - это хороший тон и Вам когда-то вернется, я уверен