Worksheet deactivate

Jeg har denne kode i en makro på en knap hvor den fungerer fint

Sub Opdater
    Sheets("ark1").Select
    Range("B2:o200").Select
    ActiveWorkbook.Worksheets("ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ark1").Sort.SortFields.Add Key:=Range("B2"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ark1").Sort
        .SetRange Range("B2:o200")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Range("b2").select
    End Sub

Kan jeg få den til at køre automatisk når arket forlades, jeg har forsøgt at kopiere den ind under worksheet Deactivate, men der fejler den?