When changing Row B in Sheet 2 automatically do sorting with Row B in Sheet 1

[paulked]

Sub SortS1B()
    Application.EnableEvents = False
    Workbooks("BookA.xlsm").Sheets("Sheet1").Range("B1").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.EnableEvents = True
End Sub