For ... To ... Next and Select ... Case ... End Select --> Excel VBA Examples

  Dim i As Integer 
  Dim rng As Range 
  For i = 1 To 4 
    Set rng = SetupRange(i) 
    Select Case i 
      Case 1 
        test_0 = 0
      Case 2 
        test_0 = 999
      Case 3 
        test_0 = 123
      Case 4 
        test_0 = 456
    End Select 
  Next i