Select Case koblet med en For sætning

Jeg sidder med et regneark, og kunne godt tænke mig at lave en macro, der udfører en bestemt handling, alt efter hvad en specifik variable har.

Jeg tænkte på at bruge en Select Case sætning.

Select Case Var
  Case 0 To 10
      C = Range("C1")
  Case 11 To 17
      C = Range("C2")
  Case Else
      C = Range("C3")
End Select

Her kommer så udfordringen.

Jeg har alle intervallerne indtastet i et ark og kunne godt tænke mig, at min Select Case automatisk fandt intervallerne.
Her tænkte jeg så på at bruge en For-sætning noget lignende...

Antal_Intervaller = Range("A:B").Find(what:="*", after:=[A1], searchorder:=xlByRows, searchdirection:=xlPrevious).Row

Sheets("TEST").Select
Antal_Intervallser = Range("A:B").Find(what:="*", after:=[A1], searchorder:=xlByRows, searchdirection:=xlPrevious).Row
       
Var = 15

Select Case Var
    For i = 1 To 5
        a = Cells(i, 1)
        b = Cells(i, 2)
        Case a To b
            C = Cells(i, 3)
    Next i
    Case Else
        C = "FEJL"
End Select

Range("E1") = C

Det er så her mine evner ikke rækker længere (endnu). For jeg får desværre en fejl
Men hvordan gør jeg så?