late binding error

[xxentric]

i turned Option Strict On

and i get an error on all the ".Cells" lines saying option strict on disallows late binding.

                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