i turned Option Strict On
and i get an error on all the ".Cells" lines saying option strict on disallows late binding.
Code:a = 1
b = 3
c = 2
d = 1
With oSheet
Do Until a > 7
Do Until .Cells(b, a).Value = ""
.Cells(b, a).activate()
If .Cells(b, a).Value = .Range("IV" & d).Value Then
.Cells(b, c).Value = .Cells(b, c).Value + 1
d = d + 1
Else
If .Range("IV" & d).Value = "" And d < 20 Then
d = d + 1
b = b - 1
End If
End If
b = b + 1
Loop
a = a + 2
b = 3
c = c + 2
d = 1
Loop
End With
