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


Reply With Quote
