Вызов сабвуфера внутри другого сабвуфера. Я пытаюсь вызвать подпрограмму в другой подпрограмме, чтобы код выполнялся при изменении целевой ячейки.

Question

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "AD13:AD33" Then
    Call OrderByPriorityLvl
    End If
End Sub

Sub OrderByPriorityLvl()

    Rows("13:33").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( _
        "AD13:AD33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A13:AI33")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A33").Select
End Sub