Почему VBA не может отсортировать этот диапазон?

Question

У меня есть следующий диапазон (очевидно, не мой, но MWE):

И я хочу отсортировать его с помощью VBA.вот мой код:

Sub test()
    LR = ActiveWorkbook.Sheets(1).UsedRange.Rows.Count + ActiveSheet.UsedRange.Rows(1).Row - 1

    Dim ws As Worksheet
    Dim sort_range As Range

    Set ws = ActiveWorksheet.Worksheets(1)
    Set sort_range = ws.Range("C$2$:$E$" & LR)

    Call sort_range.Sort(Key1:=sl_ws.Range("$C$2"), Order1:=xlAscending, _
                            Key2:=sl_ws.Range("$D$2"), Order2:=xlAscending, _
                            Key3:=sl_ws.Range("$E$2"), Order3:=xlAscending, _
                            Header:=xlYes)
End Sub

Это возвращает, что следующая ошибка:

,

, направляющая меня к этой строке:

    Set sort_range = ws.Range("C$2$:$E$" & LR)

Что я делаю не так?Любая помощь приветствуется.

Answer 1

Range("C$2$:$E$" & LR) - у вас знаки доллара в неправильных местах - должно быть Range("$C$2:$E$" & LR).