Karşılaştırmayı yapan kodda hatalı yazım

[Mx@Raid]

Arkadaşalar aşağıdaki kodda labellerde görünen değere göre diğer labela karşılığının gelmesi gerekiyor yalnız yazdığım kodda hata olduğu için çözemedim yardımcı olabilir misiniz?

Dim lbll As Label
For lbl= 36 To 42
If Intersect(Target, Controls("Label" & lbl) Is Nothing Then Exit Sub
On Error Resume Next
Set lbll = Target.("label" & lbl)
lbll.Value = ""
Select Case Ucase(Target.Value)
Case 100,99,98,97,96,95,94,93,92,91,90,89,88,87,86,85: lbll.Value = "AA"
Case 84,83,82,81,80,79,78,77,76,75,74,73,72,71,70: lbll.Value = "BA"
Case 69,68,67,66,65,64,63,62,61,60: lbll.Value = "BB"
Case 59,58,57,56,55,54,53,52,51,50: lbll.Value = "CB"
Case 49,48,47,46,45,44,43,42,41,40,39,38,37,36,35,34,33,32,31,30: lbll.Value = "CC"
Case 29,28,27,26,25,24,23,22,21,20: lbll.Value = "DC"
Case 19,18,17,16,15,14,13,12,11,10: lbll.Value = "DD"
Case 9,8,7,6,5,4,3,2,1: lbll.Value = "E"
End Select
Next

Arkadaşlar özürdilerim tanım biçiminde yanlışlık var yandaki label29 dan label35 e kadar değerleri karşılaştırıp Label36 ile 42 arasına yazması lazım.

 

[Mx@Raid]

Arkadaşlar kodu düzenledim ama yine sonuç alamadım. Fikir verecek arkadaş var mı?

Dim lbll As Label
For lbl = 29 To 35
If Intersect(Target, Controls("label" & lbl)) Is Nothing Then Exit Sub
On Error Resume Next
For i = 36 To 42
Set lbll = Target.Label("label" & i)
lbll.Value = ""
Select Case UCase(Target.Value)
Case 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85: lbll.Value = "AA"
Case 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70: lbll.Value = "BA"
Case 69, 68, 67, 66, 65, 64, 63, 62, 61, 60: lbll.Value = "BB"
Case 59, 58, 57, 56, 55, 54, 53, 52, 51, 50: lbll.Value = "CB"
Case 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30: lbll.Value = "CC"
Case 29, 28, 27, 26, 25, 24, 23, 22, 21, 20: lbll.Value = "DC"
Case 19, 18, 17, 16, 15, 14, 13, 12, 11, 10: lbll.Value = "DD"
Case 9, 8, 7, 6, 5, 4, 3, 2, 1: lbll.Value = "E"
End Select
Next: Next