Find nærmeste værdi

Hejsa.

Jeg forsøger at lave en macro, der tester om antallet af dage en levering er forsinket, ligger inden for ét interval eller et andet.

-uendelig til -8 = Før tiden
-7 til -1 = Til tiden
0 til 0 = Præcis
1 til uendlig = Forsinket

Jeg har forsøgt mig med:

TESTVALUE = Range("A1")
FOR_TIDEN = -7
TIL_TIDEN = -1
PRAECIS = 0


If TESTVALUE < FOR_TIDEN Then
  RESULT = "Før tiden"
  Else
    If TESTVALUE < TIL_TIDEN Then
      RESULT = "Til tiden"
      Else
        If TESTVALUE <= PRAECIS Then
        RESULT = "Præcis"
        Else
          RESULT = "Forsinket"
        End if
    End If
End If

Range("B1") = RESULT


Mit problem er, at testen skal ske på mange tusinde linier og for flere datatyper. Derfor kunne jeg godt tænke mig at optimere koden til at køre hurtigere. Er det her den mest oplagte måde, eller kunne man bruge et array (i så fald, hvordan)