Private Sub Worksheet_Deactivate()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Goto Reference:="LLayout"
    ActiveWorkbook.Worksheets("Support").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Support").Sort.SortFields.Add Key:=Range("ClientNameRng" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Support").Sort
        .SetRange Range("LLayout")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Main").Activate
    Sheets("Main").Range("A1").Select
    Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub