VBA kører i XP men ikke i 2000

Hej
Jeg har denne kode:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
    Cancel = True
    If Target.Address = "$B$2" Then
        Call getRates
    End If
   
    If Not Intersect(Target, Range("A6:I6")) Is Nothing Then
        ActiveSheet.Unprotect
        Range("A7", Range("I6").End(xlDown)).sort Key1:=ActiveCell, Order1:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
        ActiveSheet.Protect
    End If
   
    If Not Intersect(Target, Range("A7", Range("A6").End(xlDown))) Is Nothing Then
        ActiveSheet.Unprotect
        Selection.EntireRow.Delete
        ActiveSheet.Protect
    End If
End Sub

Den kan jeg godt køre på min installation (Office XP), men den kan ikke køres på arbejdet (Office 2000). Kan i se hvad problemet skulle være?