Køres automatisk

Hvis en makro skal køres automatisk, hver gang der sker ændringer i arket, er det så "SheetChange" man skal bruge ??
Hvor skrives makroen så den køre automatisk??.

Her er makroen:
Private Sub Workbook_SheetChange(ByVal sh As Object, _
        ByVal Source As Range)

Selection.CurrentRegion.Select
    With Selection.Font
        .ColorIndex = 1
    End With

Dim omrade As Range
    ActiveSheet.PivotTables("PivotTable1").PivotSelect "", xlDataOnly
    For Each omrade In Selection
        If omrade.Value < 2 Then omrade.Font.ColorIndex = 3
    Next

End Sub