Fejlmeddelelse i tidligere Exceludgaver end Excel 2003

Hvorfor kan denne køre i Excel 2003, men ikke i en tidligere Excel udgave?
Jeg får fejl fra og med sætningen:
Range("d14:d19").Select

Sub Raekkefoelge()
Calculate

    Dim A As Long, AntalTal As Long
    Randomize
    Dim tal() As Variant
    AntalTal = 6
                   
    Mindste = [g5]
    Storste = [i5]
    If (Storste - Mindste) < AntalTal Then
        MsgBox "Intervallet ved det første tal er for lille til at generere forskellige tal!" & vbCrLf & "Lav intervallet større!"
    Mindste = 0
    Storste = 6
    End If
     
    If (Mindste = Storste) Or (Mindste > Storste) Then
        MsgBox "Mindste og største må ikke have samme værdi og" & vbCrLf & "Største skal altid være større end mindste"
    End If
    Decimaler = [j5]
    ReDim tal(AntalTal)
    A = 0
    Do
        A = A + 1
        tal(A) = Round((Rnd() * (Storste - Mindste) + Mindste), Decimaler)
        For I = 0 To A - 1
            If tal(I) = tal(A) Then A = A - 1
        Next
    Loop Until A = AntalTal
    [b14] = tal(1)
    [B15] = tal(2)
    [B16] = tal(3)
    [B17] = tal(4)
    [b18] = tal(5)
    [B19] = tal(6)
   
    [d14] = tal(1)
    [d15] = tal(2)
    [d16] = tal(3)
    [d17] = tal(4)
    [d18] = tal(5)
    [d19] = tal(6)
   
   
Range("d14:d19").Select
    Selection.Sort Key1:=Range("d14"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("D14").Select
End Sub