Error on Method 'Range' of object '_Global' failed

Question

I am running a timer. I want the timer to count down the count up. This all works. However, the timer needs to go through a bunch of times in different rows but should NOT move to the next time until a button is pressed. This will allow me to extract times that went over the countdown.

Any ideas? (I am using the finish as a button, all it does is black a cell). I was hoping that when I did that the times would reset and go to the next column.

Sub GoGo()

Public GoGo As Boolean

GoGo = True

End Sub

Sub Runn()

Dim lastrow As Long, i As Long

        For i = 23 To 32


           DoEvents
            If GoGo = True Then

                If Cells(i, 1) <> 0 Then

             Range("B5").Value = Cells(i, 2).Value
             Range("E5").Value = Cells(i, 3).Value
             Range("E11").Value = Range("C33").Value

             Application.Run ("Realcount")
             Application.Run ("Realcount2")

            End If
            End If



            Next i

End Sub

Answer 1

You can't do Range(i, 2) or Range(i, 3). Did you means Cells(i, 2)?