Hi i have the following code for a large number of cells in a column, the code is so huge that i have hit the 'procedure too big' barrier so please take a look at the code below 


If (Range("C39").Value < 1) and (Range("C8").Value >= Range("C9").Value) Then
Range("C9").Select
Res_Dark_A
Range("C39").Value = 2
Range("C65").Value = Range("B9").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D9").Value

End If

If (Range("C40").Value < 1) and (Range("C8").Value >= Range("C10").Value) Then
Range("C10").Select
Res_Light_B
Range("C40").Value = 2
Range("C65").Value = Range("B10").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D10").Value

End If

If (Range("C41").Value < 1) and (Range("C8").Value >= Range("C11").Value) Then
Range("C11").Select
Res_Dark_A
Range("C41").Value = 2
Range("C65").Value = Range("B11").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D11").Value

End If

If (Range("C42").Value < 1) and (Range("C8").Value >= Range("C12").Value) Then
Range("C12").Select
Res_Light_B
Range("C42").Value = 2
Range("C65").Value = Range("B12").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D12").Value

End If

If (Range("C43").Value < 1) and (Range("C8").Value >= Range("C13").Value) Then
Range("C13").Select
Res_Dark_A
Range("C43").Value = 2
Range("C65").Value = Range("B13").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D13").Value

End If

If (Range("C44").Value < 1) and (Range("C8").Value >= Range("C14").Value) Then
Range("C14").Select
Res_Light_B
Range("C44").Value = 2
Range("C65").Value = Range("B14").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D14").Value

End If

If (Range("C45").Value < 1) and (Range("C8").Value >= Range("C15").Value) Then
Range("C15").Select
Res_Dark_A
Range("C45").Value = 2
Range("C65").Value = Range("B15").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D15").Value

End If

If (Range("C46").Value < 1) and (Range("C8").Value >= Range("C16").Value) Then
Range("C16").Select
Res_Light_B
Range("C46").Value = 2
Range("C65").Value = Range("B16").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D16").Value

End If

If (Range("C47").Value < 1) And (Range("C8").Value >= Range("C17").Value) THEN
Range("C17").Select
Res_Dark_A
Range("C47").Value = 2
Range("C65").Value = Range("B17").Value
Range("C66").Value = Range("C8").Value
Range("C67").Value = Range("C19").Value
Range("C68").Value = Range("D17").Value

End If
This is just one 1/40 th part of the code and i hope you can imagine the hardship that i have to go thru to make this code work .. so I hope some kind of LOOP solution will be viable .As you can see that cells are progressing and not random which might make the job easier